A052004 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A052004

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

0, 2, 4, 20, 40, 200, 202, 400, 1822, 1824, 1902, 2000, 2002, 2020, 4000, 4352, 18220, 18240, 19020, 20000, 20002, 20020, 20200, 34372, 39154, 40000, 43520, 182200, 182400, 190200, 200000, 200002, 200020, 200200, 202000, 297092, 343720, 391540

(list; graph; refs; listen; history; text; internal format)

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

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

Sequence in context: A059206 A294230 A332626 * A353342 A027741 A137697

Adjacent sequences: A052001 A052002 A052003 * A052005 A052006 A052007

KEYWORD

nonn,base,nice

AUTHOR

Patrick De Geest, Nov 15 1999

STATUS

approved