OFFSET
1,1
COMMENTS
LINKS
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}.
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
KEYWORD
nonn
AUTHOR
Peter Pein (petsie(AT)dordos.net), Jul 26 2007, Jul 28 2007
EXTENSIONS
More terms from Max Alekseyev and Daniel Lichtblau (danl(AT)wolfram.com), Jul 28 2007
STATUS
approved