|
Search: id:A147718
|
|
|
| A147718 |
|
Primes of the form Prime[x]^2 + (Prime[x] - 1)^2 |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
These primes are hypotenuses of rectangular triangles in which all sides are natural numbers.
|
|
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 (*Artur Jasinski*)
|
|
CROSSREFS
|
A020882, A008846
Sequence in context: A080925 A164907 A085601 this_sequence A111009 A012172 A066873
Adjacent sequences: A147715 A147716 A147717 this_sequence A147719 A147720 A147721
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 11 2008
|
|
|
Search completed in 0.002 seconds
|
