A030099 -id:A030099 - cp's OEIS frontend

A030100 Cubes whose digits are all odd.

1, 1331, 3375, 35937, 59319, 357911, 753571, 5177717, 5359375, 5735339, 9393931, 17373979, 37595375, 37159393753, 99317171591, 175333911173, 397551775977, 1913551573375, 9735913353977, 11997979755957, 17171515157399, 335571975137771, 1331399339931331

Offset: 1

Patrick De Geest

Giovanni Resta, Table of n, a(n) for n = 1..563 (terms < 10^57)

Cf. A030099, A034376, A052004.

Select[Range[23000]^3,And@@(OddQ/@IntegerDigits[#])&] (* Harvey P. Dale, Aug 20 2011 *)

a(n) = A030099(n)^3.

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

Original entry on oeis.org

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

Offset: 1

Patrick De Geest, Nov 15 1999

Giovanni Resta, Table of n, a(n) for n = 1..1600 (first 357 terms from Donovan Johnson)

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

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 *)

A034376 Cubes with all digits even.

Original entry on oeis.org

0, 8, 64, 8000, 64000, 8000000, 8242408, 64000000, 6048464248, 6068404224, 6880682808, 8000000000, 8024024008, 8242408000, 64000000000, 82426462208, 6048464248000, 6068404224000, 6880682808000, 8000000000000, 8002400240008

Offset: 1

Erich Friedman

Giovanni Resta, Table of n, a(n) for n = 1..1600 (terms < 10^52)

Cf. A052004, A030099, A030100.

Select[Range[0,20100,2]^3,And@@EvenQ[IntegerDigits[#]]&] (* Harvey P. Dale, Dec 10 2013 *)

Offset set to 1 by Giovanni Resta, Mar 13 2020

A085597 Numbers k such that k and k^3 use only odd digits.

Original entry on oeis.org

1, 11, 15, 33, 39, 71, 91, 173, 175, 179, 335, 3337, 5597, 7353

Offset: 1

Zak Seidov, Jul 06 2003

Numbers k such that k^3 uses only odd digits are in A030099.
No other terms below 10^16. The sequence is likely finite. - Max Alekseyev, Oct 17 2017
a(15) > 10^19, if it exists. - Giovanni Resta, Mar 13 2020

			15 is a term because both 15 and 15^3=3375 use only odd digits.

Cf. A030099.

Select[Range[10000],And@@OddQ[Join[IntegerDigits[#],IntegerDigits[ #^3]]]&] (* Harvey P. Dale, May 15 2012 *)

isoddd(n) = #select(x->((x%2) == 0), digits(n)) == 0;
isok(n) = isoddd(n) && isoddd(n^3); \\ Michel Marcus, Dec 03 2016

cp's OEIS Frontend

A030100 Cubes whose digits are all odd.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A034376 Cubes with all digits even.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A085597 Numbers k such that k and k^3 use only odd digits.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI