|
| |
|
|
A131907
|
|
Integers for which a smaller positive integer exists which has the same sum of cubes of its divisors.
|
|
3
| |
|
|
194315, 295301, 2953010, 1181204, 1476505, 1886920, 2067107, 2362408, 2526095, 2953010, 3248311, 3691985, 3838913, 4134214, 4469245, 4724816, 5020117, 5610719, 5635135, 5906020, 6023765, 6496622, 6791923, 7382525, 7677826
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Max Alekseyev, List of first 224 pairs A131907(n), A131908(n)
|
|
|
FORMULA
| n-th element of {x>0: there exists a k with 0<k<x and the same sum of the cubes of its divisors as x)
|
|
|
EXAMPLE
| a(1)=194315 because it is the least integer for which a smaller positive integer with the same sum of the cubes of its divisors exist. The sum of the cubes of 194315 is 1+125+1331+166375+44099220437+5512402554625+58696062401647+7337007800205875=7401260364550416.
The sum of the cubes of 184926 is 1 + 8 + 27 + 216 + 343 + 2744 + 4913 + 9261 + 39304 + 50653 + 74088 + 117649 + 132651 + 405224 + 941192 + 1061208 + 1367631 + 1685159 + 3176523 + 10941048 + 13481272 + 17373979 + 25412184 + 45499293 + 138991832 + 248858189 + 363994344 + 469097433 + 578009537 + 1990865512 + 3752779464 + 4624076296 + 5959274797 + 6719171103 + 15606257499 + 47674198376 + 53753368824 + 85358358827 + 124850059992 + 160900419519 + 682866870616 + 1287203356152 + 2304675688329 + 18437405506632 + 29277917077661 + 234223336621288 + 790503761096847 + 6324030088774776=7401260364550416, which is the same.
|
|
|
MATHEMATICA
| First@Transpose[Reap[For[n = 1, n <= 5*10^6, n++, (If[Head[ #1] === tmp, #1 = n, Sow[{n, #1}]] & )[ tmp[DivisorSigma[3, n]]]]][[2, 1]]]
|
|
|
CROSSREFS
| Cf. A069822, A131902-A131908.
Sequence in context: A187676 A187674 A183753 * A202937 A013901 A206052
Adjacent sequences: A131904 A131905 A131906 * A131908 A131909 A131910
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Peter Pein (petsie(AT)dordos.net), Jul 26 2007, Jul 28 2007
|
|
|
EXTENSIONS
| More terms from Max Alekseyev (maxale(AT)gmail.com) and Daniel Lichtblau (danl(AT)wolfram.com), Jul 28 2007
|
| |
|
|
