|
%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
|
