%I #24 Aug 04 2021 02:22:24

%S 0,2,4,20,40,200,202,400,1822,1824,1902,2000,2002,2020,4000,4352,

%T 18220,18240,19020,20000,20002,20020,20200,34372,39154,40000,43520,

%U 182200,182400,190200,200000,200002,200020,200200,202000,297092,343720,391540

%N Numbers k such that k^3 has only even digits.

%H Giovanni Resta, <a href="/A052004/b052004.txt">Table of n, a(n) for n = 1..1600</a> (first 357 terms from Donovan Johnson)

%t Select[ Range[ 500000 ], Union[ EvenQ[ IntegerDigits[ #^3 ] ] ] == {True} & ]

%t Select[Range[0,400000],AllTrue[IntegerDigits[#^3],EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Oct 15 2017 *)

%Y Cf. A000578, A034376, A030099, A030100, A030479, A030483, A031997, A076165, A076166, A076171, A137468.

%K nonn,base,nice

%O 1,2

%A _Patrick De Geest_, Nov 15 1999