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