%I A052004
%S A052004 0,2,4,20,40,200,202,400,1822,1824,1902,2000,2002,2020,4000,4352,18220,
%T A052004 18240,19020,20000,20002,20020,20200,34372,39154,40000,43520,182200,
%U A052004 182400,190200,200000,200002,200020,200200,202000,297092,343720,391540
%N A052004 Numbers n such that n^3 has only even digits.
%t A052004 Select[ Range[ 500000 ], Union[ EvenQ[ IntegerDigits[ #^3 ] ] ] == {True} 
               & ]
%Y A052004 Cf. A034376, A030099, A030100.
%Y A052004 Cf. A030100, A030479, A030483, A031997, A076165, A076166, A076171, A137468.
%Y A052004 Sequence in context: A069535 A108866 A059206 this_sequence A027741 A137697 
               A009336
%Y A052004 Adjacent sequences: A052001 A052002 A052003 this_sequence A052005 A052006 
               A052007
%K A052004 nonn,base,easy,nice
%O A052004 1,2
%A A052004 Patrick De Geest (pdg(AT)worldofnumbers.com), Nov 15 1999.