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 A068989 #12 Jan 07 2018 21:39:00 %S A068989 16,196,361,784,1024,1369,1444,1600,1681,3844,7225,7921,9025,9409, %T A068989 11236,14161,18496,19321,19600,36100,37249,38416,70756,73441,75076, %U A068989 76729,78400,78961,97969,99856,102400,105625,107584,109561,111556,112225 %N A068989 Squares which when reversed are primes (ignore leading zeros). %H A068989 T. D. Noe, <a href="/A068989/b068989.txt">Table of n, a(n) for n=1..1000</a> %e A068989 40^2 = 1600. Reversing the digits we get 0061, which is the prime 61 padded with leading zeroes. Hence 1600 is in the sequence. %e A068989 41^2 = 1681. Reversing the digits we get 1861, which is a prime. Hence 1681 is in the sequence. %e A068989 42^2 = 1764. Reversing the digits we get 4671 = 3^3 * 173. So 1764 is not in the sequence. %t A068989 Do[s = i^2; If[PrimeQ[FromDigits[Reverse[IntegerDigits[s]]]], Print[s]], {i, 1, 10^2}] (* Pe *) %t A068989 Select[Range[100]^2, PrimeQ[FromDigits[Reverse[IntegerDigits[#]]]] &] (* _Alonso del Arte_, Jan 07 2018 *) %o A068989 (PARI) isok(n) = issquare(n) && isprime(fromdigits(Vecrev(digits(n)))); \\ _Michel Marcus_, Jan 07 2018 %Y A068989 Cf. primes whose reversal is a square, A007488; numbers n such that n^2 reversed is a prime, A059007. %K A068989 easy,nonn,base %O A068989 1,1 %A A068989 _Joseph L. Pe_, Mar 12 2002 %E A068989 More terms from _Zak Seidov_, Jan 26 2005 %E A068989 Edited by _N. J. A. Sloane_, Dec 23 2007