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 A167737 #21 Sep 04 2025 20:43:34
%S A167737 41,761,23801,31649,39569,63761,1100921,1951529,2497361,2810849,
%T A167737 3046721,3678881,4715969,4796249,5118089,5198729,5441081,5846441,
%U A167737 5927729,6009089,6498761,6662561,6908801,7238129,7983329,8149721,8483369,8734361,9744809,9829481
%N A167737 Primes that become squares when prefixed with a 4.
%H A167737 Robert Israel, <a href="/A167737/b167737.txt">Table of n, a(n) for n = 1..10000</a>
%p A167737 map(t -> t - 4*10^ilog10(t), select(t -> isprime(t - 4*10^ilog10(t)), [seq(seq(i^2,i=ceil(sqrt(4.1*10^d)) .. floor(sqrt(5*10^d))),d=1..10)])); # _Robert Israel_, Nov 08 2023
%t A167737 Select[Prime[Range[10^4]], IntegerQ[Sqrt[FromDigits[Join[{4}, IntegerDigits[#]]]]]&] (* _G. C. Greubel_, Jun 23 2016 *)
%Y A167737 Cf. A167734, A167735, A167736, A167738, A167739, A167740, A167741.
%K A167737 base,nonn,changed
%O A167737 1,1
%A A167737 _Claudio Meller_, Nov 10 2009
%E A167737 More terms from _Michel Marcus_, Aug 05 2013