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