|
| |
|
|
A111632
|
|
Increasingly larger values in A110412.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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 * A049547 A049577 A121558
Adjacent sequences: A111629 A111630 A111631 * 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
|
| |
|
|
