OFFSET
1,1
COMMENTS
n^2=sum(prime(k),k=m,m+119); corresponding values of m: 10917, 11527, 50923, 73894, 111468, 118436, 128662, 139123, 195234 (A166261).
EXAMPLE
a(1)=3734: 3734^2=sum[Prime[i], {i,10917,10917+119}],
a(2)=3846: 3846^2=sum[Prime[i], {i,11527,11527+119}].
MATHEMATICA
Select[Sqrt[#]&/@(Total/@Partition[Prime[Range[5*10^6]], 120, 1]), IntegerQ] (* Harvey P. Dale, Jul 17 2019 *)
PROG
(PARI) lista(nn) = {pr = primes(nn); for (i=1, nn-119, s = sum(k=i, i+119, pr[k]); if (issquare(s), print1(sqrtint(s), ", ")); ); } \\ Michel Marcus, Oct 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 10 2009
EXTENSIONS
a(35)-a(37) from Michel Marcus, Oct 15 2013
STATUS
approved