A051750 - OEIS

%I #13 Jan 06 2017 11:44:59

%S 2,3,5,7,11,13,17,19,23,29,31,41,53,61,71,83,97,113,137,139,151,157,

%T 167,173,179,181,191,197,211,233,239,241,251,257,263,277,283,293,307,

%U 331,337,347,353,359,373,379,383,389,409,421,433,457,461,463,499,503

%N Primes whose cubes lack zeros.

%H Giovanni Resta, <a href="/A051750/b051750.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Prime[Range[100]],FreeQ[IntegerDigits[#^3],0]&] (* _Harvey P. Dale_, Jan 06 2017 *)

%o (PARI) isok(n) = isprime(n) && vecmin(digits(n^3)); \\ _Michel Marcus_, Jan 06 2014

%Y Cf. A000040, A000578.

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

%K base,nonn

%O 1,1

%A _G. L. Honaker, Jr._, Dec 07 1999

%E More terms from _Michel Marcus_, Jan 06 2014