This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A052042 #23 Dec 28 2014 02:09:41
%S A052042 2,3,5,7,11,13,17,19,23,29,31,37,41,43,59,61,67,73,79,83,89,107,109,
%T A052042 113,127,131,137,139,157,163,167,173,181,191,193,211,223,227,229,233,
%U A052042 239,263,269,271,277,281,293,307,311,313,337,359,367,373,379,383,389,409,419,421,431
%N A052042 Primes that lack the digit zero in the decimal expansion of their squares.
%H A052042 Zak Seidov, <a href="/A052042/b052042.txt">Table of n, a(n) for n = 1..10000</a>
%F A052042 a(n) = sqrt(A052043(n)). - _Zak Seidov_, Dec 27 2014
%e A052042 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 A052042 fQ[n_] := DigitCount[n^2][[-1]] == 0; Select[Prime@ Range@ 80, fQ] (* _Robert G. Wilson v_, Aug 22 2012 *)
%o A052042 (PARI) {p=2;for(k=1,10^2,if(vecmin(digits(p^2))>0,
%o A052042 print1(p", "));p=nextprime(1+p))}\\ _Zak Seidov_, Dec 24 2014
%Y A052042 Squares: A052043, A052040, A052041. Cubes: A051750, A051751, A051832, A051833.
%Y A052042 Cf. A245576.
%K A052042 nonn,base
%O A052042 1,1
%A A052042 _Patrick De Geest_, Dec 15 1999