|
Search: id:A111632
|
|
| |
|
| 1, 2, 3, 5, 17, 22, 26, 401, 626, 730, 1025, 1813, 4925, 7572, 19053, 28925, 51996, 115625, 175208, 374560, 435825, 687500, 978144, 1333976, 1346072, 2600466, 2867085, 4509012, 5146875, 8948550
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
The last to appear is 1,2,3,5,8,9,10,11,15,18,19,21,22,25,30,34,42,45,46,58,69,70,81,90,126,133,158,202,276,465,...,.
|
|
MATHEMATICA
|
f[n_] := Plus @@ (DivisorSigma[0, n - # ] & /@ Most[Divisors[n]]); t = Table[0, {1000}]; Do[a = f[n]; If[a < 1000 && t[[a + 1]] == 0, t[[a + 1]] = n; Print[{a, n}]], {n, 10^6}]
|
|
CROSSREFS
|
Cf. A110412.
Sequence in context: A058501 A119405 A032733 this_sequence A049547 A049577 A121558
Adjacent sequences: A111629 A111630 A111631 this_sequence A111633 A111634 A111635
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 09 2005
|
|
|
Search completed in 0.002 seconds
|
