|
Search: id:A063981
|
|
| |
|
| 2, 4, 9, 16, 81, 85, 256, 931, 65536, 4599097, 6309263, 16905401, 43046721
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a = 0; b = 0; Do[a = b; b = Apply[ Plus, Transpose[ FactorInteger[n + 1]] [[1]]]; If[ b - a == DivisorSigma[1, n] - n, Print[n]], {n, 1, 2*10^7} ]
|
|
CROSSREFS
|
Cf. A008472, A001065.
Adjacent sequences: A063978 A063979 A063980 this_sequence A063982 A063983 A063984
Sequence in context: A056331 A056336 A060401 this_sequence A131095 A136379 A065026
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Sep 05 2001
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 05 2001
|
|
|
Search completed in 0.002 seconds
|
