%I #23 Dec 28 2014 02:09:41

%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,59,61,67,73,79,83,89,107,109,

%T 113,127,131,137,139,157,163,167,173,181,191,193,211,223,227,229,233,

%U 239,263,269,271,277,281,293,307,311,313,337,359,367,373,379,383,389,409,419,421,431

%N Primes that lack the digit zero in the decimal expansion of their squares.

%H Zak Seidov, <a href="/A052042/b052042.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = sqrt(A052043(n)). - _Zak Seidov_, Dec 27 2014

%e The primes 47, 53 and 71 are not in the sequence because 47^2=2209, 53^2=2809 and 71^2=5041 contain zeros in their decimal representation.

%t fQ[n_] := DigitCount[n^2][[-1]] == 0; Select[Prime@ Range@ 80, fQ] (* _Robert G. Wilson v_, Aug 22 2012 *)

%o (PARI) {p=2;for(k=1,10^2,if(vecmin(digits(p^2))>0,

%o print1(p", "));p=nextprime(1+p))}\\ _Zak Seidov_, Dec 24 2014

%Y Squares: A052043, A052040, A052041. Cubes: A051750, A051751, A051832, A051833.

%Y Cf. A245576.

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Dec 15 1999