%I #19 Oct 17 2019 22:27:49
%S 4,9,25,49,121,169,289,361,529,841,961,1369,1681,1849,3481,3721,4489,
%T 5329,6241,6889,7921,11449,11881,12769,16129,17161,18769,19321,24649,
%U 26569,27889,29929,32761,36481,37249,44521,49729,51529,52441,54289
%N Squares of primes lacking the digit zero in their decimal expansion.
%C Intersection of A052382 and A001248; A168046(a(n))*A064911(a(n))*A010052(a(n)) = 1. - _Reinhard Zumkeller_, Dec 01 2009
%H Zak Seidov, <a href="/A052043/b052043.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Zerofree.html">Zerofree</a> - _Reinhard Zumkeller_, Dec 01 2009
%t Select[Prime[Range[100]]^2,DigitCount[#,10,0]==0&] (* _Harvey P. Dale_, Mar 18 2012 *)
%o (PARI) is(n)=my(d=digits(n));vecsort(d)[1]&&issquare(n,&n)&&isprime(n) \\ _Charles R Greathouse IV_, Jun 05 2013
%Y Squares: A052042, A052040, A052041.
%Y Cubes: A051750, A051751, A051832, A051833.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Dec 15 1999