OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(4) = 313. The next two primes are 317 and 331, and 313 + 317 + 331 = 961 = 31^2.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[50000]], 3, 1], IntegerQ[ Sqrt[ Total[#]]]&]][[1]]
PROG
(PARI) p=2; q=3; forprime(r=5, 1e9, if(issquare(p+q+r), print1(p", ")); p=q; q=r) \\ Charles R Greathouse IV, Aug 28 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Feb 05 2012
STATUS
approved