OFFSET
1,1
COMMENTS
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000 (n = 1..1390 from Donovan Johnson)
FORMULA
MATHEMATICA
Select[Table[Prime[n]+Prime[n+1]+Prime[n+2], {n, 8!}], IntegerQ[Sqrt[1+8# ]]&] (* Vladimir Joseph Stephan Orlovsky, Feb 18 2010 *)
PROG
(Magma) [ t: n in [1..40000] | IsSquare(8*t+1) where t is &+[NthPrime(n+s): s in [0, 1, 2]] ]; // Bruno Berselli, Apr 28 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 12 2009
STATUS
approved