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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052004 Numbers k such that k^3 has only even digits. 5
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
Sequence in context: A059206 A294230 A332626 * A353342 A027741 A137697
KEYWORD
nonn,base,nice
AUTHOR
Patrick De Geest, Nov 15 1999
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 09:44 EDT 2024. Contains 371268 sequences. (Running on oeis4.)