OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..5000
EXAMPLE
a(4) = 3529. The next four primes are 3533, 3539, 3541, and 3547, and the sum of all five primes = 17689 = 133^2.
MAPLE
count:= 0: Res:= NULL:
for y from 10 while count < 100 do
target:= y^2;
t:= prevprime(ceil(target/5));
s:= prevprime(t);
r:= prevprime(s);
q:= prevprime(r);
p:= prevprime(q);
u:= p+q+r+s+t;
while u < target do
p:= q; q:= r; r:= s; s:= t; t:= nextprime(t);
u:= p+q+r+s+t;
od;
if u = target then
count:= count+1; Res:= Res, p;
fi
od:
Res; # Robert Israel, Oct 20 2020
MATHEMATICA
Transpose[Select[Partition[Prime[Range[80000]], 5, 1], IntegerQ[Sqrt[ Total[#]]]&]][[1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Feb 05 2012
STATUS
approved