A246907 Numbers n such that sigma(n + sigma(n)) = 3n.
1, 2, 4, 8, 16, 64, 128, 2048, 262144, 17179869184, 274877906944, 8796093022208, 36028797018963968
Offset: 1
Examples
Number 16 is in sequence because sigma(16 + sigma(16)) = sigma(16 + 31) = sigma(47) = 48 = 3 * 16.
Programs
-
Magma
[n:n in[1..10000000] | SumOfDivisors(n+SumOfDivisors(n))eq 3*n]
-
Mathematica
Select[Range[300000], DivisorSigma[1, # + DivisorSigma[1, #]] == 3 # &] (* Harvey P. Dale, Jul 19 2015 *)
-
PARI
for(n=1,10^7,if(sigma(n+sigma(n))==3*n,print1(n,", "))) \\ Derek Orr, Sep 07 2014
Extensions
a(10)-a(13) from Hiroaki Yamanouchi, Sep 11 2015
Comments