OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[Prime[n]+Prime[n+1]+Prime[n+2]+Prime[n+3], {n, 2*8!}], IntegerQ[Sqrt[1+8# ]]&]
Select[Total/@Partition[Prime[Range[50000]], 4, 1], OddQ[Sqrt[1+8#]]&] (* Harvey P. Dale, May 29 2021 *)
PROG
(Magma) [ t: n in [1..25000] | IsSquare(8*t+1) where t is &+[NthPrime(n+s): s in [0..3]] ]; // Bruno Berselli, Apr 28 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 18 2010
STATUS
approved