OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1600 (first 357 terms from Donovan Johnson)
MATHEMATICA
Select[ Range[ 500000 ], Union[ EvenQ[ IntegerDigits[ #^3 ] ] ] == {True} & ]
Select[Range[0, 400000], AllTrue[IntegerDigits[#^3], EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 15 2017 *)
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved