A051750 Primes whose cubes lack zeros.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 41, 53, 61, 71, 83, 97, 113, 137, 139, 151, 157, 167, 173, 179, 181, 191, 197, 211, 233, 239, 241, 251, 257, 263, 277, 283, 293, 307, 331, 337, 347, 353, 359, 373, 379, 383, 389, 409, 421, 433, 457, 461, 463, 499, 503

Offset: 1

Author

G. L. Honaker, Jr., Dec 07 1999

Keywords

• base
• nonn

Links

• Giovanni Resta, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A000578.

Cubes: A052044, A052045, A051751, A051832, A051833. Squares: A052040, A052041, A052042, A052043.

Programs

Mathematica

Select[Prime[Range[100]],FreeQ[IntegerDigits[#^3],0]&] (* Harvey P. Dale, Jan 06 2017 *)

PARI

isok(n) = isprime(n) && vecmin(digits(n^3)); \\ Michel Marcus, Jan 06 2014

Extensions

More terms from Michel Marcus, Jan 06 2014