OFFSET
1,3
REFERENCES
Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press, 2000.
LINKS
Daniel Mondot, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A237525(n)^3.
MATHEMATICA
Select[Range[0, 200]^3, IntegerQ[(Plus@@IntegerDigits[ #])^(1/3)]&] (* Dean Hickerson, Apr 08 2002 *)
k=0; Monitor[Parallelize[While[True, If[And[IntegerQ[k^(1/3)], IntegerQ[Total[IntegerDigits[k]]^(1/3)]], Print[k]]; k++]; k], k] (* J.W.L. (Jan) Eerland, Sep 30 2024 *)
PROG
(PARI) v=List(); for(n=0, 1e2, if(ispower(sumdigits(n^3), 3), listput(v, n^3))); Vec(v) \\ Charles R Greathouse IV, Sep 20 2012
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Felice Russo, Feb 25 2000
EXTENSIONS
More terms from James Sellers, Feb 28 2000
Edited by N. J. A. Sloane, Apr 11 2009 at the suggestion of Eric Angelini
a(33)-a(50) from J.W.L. (Jan) Eerland, Sep 30 2024
STATUS
approved