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 A147718 #13 Mar 29 2020 05:39:01 %S A147718 5,13,41,313,1013,1861,3613,7321,9941,10513,13613,20201,21013,34061, %T A147718 52813,59513,99013,218461,277513,353641,370661,391613,424121,427813, %U A147718 481181,584281,632813,702113,750313,820481,825613,904513,1073113 %N A147718 Primes of the form prime(x)^2 + (prime(x) - 1)^2. %C A147718 These primes are hypotenuses of right triangles in which all sides are natural numbers. %H A147718 Amiram Eldar, <a href="/A147718/b147718.txt">Table of n, a(n) for n = 1..10000</a> %t A147718 aa = {}; Do[If[PrimeQ[Prime[x]^2 + (Prime[x] - 1)^2], AppendTo[aa, Prime[x]^2 + (Prime[x] - 1)^2]], {x, 1, 1000}]; aa %Y A147718 Cf. A020882, A008846. %K A147718 nonn %O A147718 1,1 %A A147718 _Artur Jasinski_, Nov 11 2008