OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..600 from Harvey P. Dale)
FORMULA
EXAMPLE
17 and 19 are consecutive primes whose sum is 36, a square, so 19 is a term.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[14000]], 2, 1], IntegerQ[ Sqrt[ Total[#]]]&]] [[2]] (* Harvey P. Dale, May 03 2012 *)
PROG
(PARI) g(n) = for(x=2, n, if(issquare(prime(x)+prime(x-1)), print1(prime(x)", ")))
(PARI) lista(pmax) = {my(p1 = 2); forprime(p2 = 3, pmax, if(issquare(p1 + p2), print1(p2, ", ")); p1 = p2); } \\ Amiram Eldar, Jul 12 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, May 08 2006
STATUS
approved