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 A072367 #16 Sep 08 2022 08:45:06 %S A072367 1,100,196,625,10816,13456,15376,18496,21025,22201,22801,24649,25921, %T A072367 27889,29929,33856,35344,36100,42025,50176,60025,63001,70756,71824, %U A072367 73984,78400,82369,83521,96100,1012036,1048576,1073296,1123600,1144900 %N A072367 Squares x such that x + reverse of x is a prime. %H A072367 Robert Israel, <a href="/A072367/b072367.txt">Table of n, a(n) for n = 1..10000</a> %e A072367 196 is a term because 196 is a square and 196+691=887 is a prime. %p A072367 select(t -> isprime(t+revdigs(t)), [seq(i^2,i=1..10000)]); # _Robert Israel_, Jun 19 2019 %t A072367 Select[Range[1100]^2,PrimeQ[#+FromDigits[Reverse[IntegerDigits[#]]]]&] (* _Harvey P. Dale_, Feb 20 2011 *) %o A072367 (PARI) isok(x) = issquare(x) && isprime(x+fromdigits(Vecrev(digits(x)))); \\ _Michel Marcus_, Jun 19 2019 %o A072367 (Magma) [k:k in [m^2:m in [1..1100]]| IsPrime(Seqint(Intseq(k,10))+Seqint(Reverse(Intseq(k,10))))]; // _Marius A. Burtea_, Jun 20 2019 %Y A072367 Cf. A056964, A072366. %K A072367 base,easy,nonn %O A072367 1,2 %A A072367 _Shyam Sunder Gupta_, Jul 18 2002