A147718 Primes of the form prime(x)^2 + (prime(x) - 1)^2.

5, 13, 41, 313, 1013, 1861, 3613, 7321, 9941, 10513, 13613, 20201, 21013, 34061, 52813, 59513, 99013, 218461, 277513, 353641, 370661, 391613, 424121, 427813, 481181, 584281, 632813, 702113, 750313, 820481, 825613, 904513, 1073113

Offset: 1

Author

Artur Jasinski, Nov 11 2008

Keywords

• nonn

Comments

These primes are hypotenuses of right triangles in which all sides are natural numbers.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A020882, A008846.

Programs

Mathematica

aa = {}; Do[If[PrimeQ[Prime[x]^2 + (Prime[x] - 1)^2], AppendTo[aa, Prime[x]^2 + (Prime[x] - 1)^2]], {x, 1, 1000}]; aa