A034376 Cubes with all digits even.
0, 8, 64, 8000, 64000, 8000000, 8242408, 64000000, 6048464248, 6068404224, 6880682808, 8000000000, 8024024008, 8242408000, 64000000000, 82426462208, 6048464248000, 6068404224000, 6880682808000, 8000000000000, 8002400240008
Offset: 1
Links
- Giovanni Resta, Table of n, a(n) for n = 1..1600 (terms < 10^52)
Programs
-
Mathematica
Select[Range[0,20100,2]^3,And@@EvenQ[IntegerDigits[#]]&] (* Harvey P. Dale, Dec 10 2013 *)
Extensions
Offset set to 1 by Giovanni Resta, Mar 13 2020