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 A167735 #18 Sep 04 2025 20:43:09 %S A167735 5,89,401,601,809,1609,2801,4649,5281,6569,9241,9929,14369,18089, %T A167735 19961,21841,27529,33289,41081,43049,51001,61121,67289,73529,79841, %U A167735 84089,92681,94849 %N A167735 Primes that become squares when prefixed with a 2. %H A167735 Vincenzo Librandi and David A. Corneth, <a href="/A167735/b167735.txt">Table of n, a(n) for n = 1..10488</a> (First 222 terms from Vincenzo Librandi) %t A167735 Select[Prime[Range[10000]],IntegerQ[Sqrt[FromDigits[Join[{2},IntegerDigits[#]]]]]&] (* _Harvey P. Dale_, Dec 16 2010 *) %o A167735 (PARI) \\ terms upto 10^n %o A167735 upto(n) = {my(sqrt21 = sqrt(2.1), sqrt30 = sqrt(3.0),r,t=0); %o A167735 for(k=2, n, for(j = ceil((sqrt21 * sqrt(10^k))), floor(sqrt30 * sqrt(10^k)), %o A167735 r = j^2%10^k; if(isprime(r),t++;print1(r", "))));t} \\ _David A. Corneth_, Jun 24 2016 %Y A167735 Cf. A167734, A167736, A167737, A167738, A167739, A167740, A167741. %K A167735 base,nonn,changed %O A167735 1,1 %A A167735 _Claudio Meller_, Nov 10 2009