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 A086924 #9 Aug 12 2017 12:17:18
%S A086924 2,13,31,79,97,103,113,163,173,193,227,257,277,311,331,613,643,653,
%T A086924 673,683,709,719,739,769,811,821,881,907,937,947,967,977,997,1013,
%U A086924 1033,1063,1093,1103,1123,1153,1163,1193,1213,1223
%N A086924 Primes such that sum of the first and last digits is a square.
%t A086924 fldsQ[n_]:=Module[{idn=IntegerDigits[n]},IntegerQ[Sqrt[ idn[[1]] + idn[[-1]]]]]; Select[Prime[Range[200]],fldsQ] (* _Harvey P. Dale_, Aug 12 2017 *)
%o A086924 (PARI) okdigs(n) = digs = digits(n); issquare(digs[1]+digs[#digs]);
%o A086924 isok(n) = isprime(n) && okdigs(n); \\ _Michel Marcus_, Oct 05 2013
%Y A086924 Cf. A088133, A088134, A088135, A088136.
%K A086924 easy,nonn,base
%O A086924 1,1
%A A086924 _Zak Seidov_, Sep 20 2003