cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A166262 Numbers n with property that n^2 is a sum of some 120 successive primes.

This page as a plain text file.
%I A166262 #7 Jul 17 2019 13:59:23
%S A166262 3734,3846,8660,10602,13248,13690,14318,14936,17934,20458,23902,27614,
%T A166262 27704,29176,30942,31064,34238,35070,36216,38346,38532,38774,42236,
%U A166262 42428,43190,43742,43794,47308,47622,49708,56070,57036,58856,65692,66122,66940,68016
%N A166262 Numbers n with property that n^2 is a sum of some 120 successive primes.
%C A166262 n^2=sum(prime(k),k=m,m+119); corresponding values of m: 10917, 11527, 50923, 73894, 111468, 118436, 128662, 139123, 195234 (A166261).
%e A166262 a(1)=3734: 3734^2=sum[Prime[i], {i,10917,10917+119}],
%e A166262 a(2)=3846: 3846^2=sum[Prime[i], {i,11527,11527+119}].
%t A166262 Select[Sqrt[#]&/@(Total/@Partition[Prime[Range[5*10^6]],120,1]),IntegerQ] (* _Harvey P. Dale_, Jul 17 2019 *)
%o A166262 (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
%Y A166262 Cf. A166261.
%K A166262 nonn
%O A166262 1,1
%A A166262 _Zak Seidov_, Oct 10 2009
%E A166262 a(35)-a(37) from _Michel Marcus_, Oct 15 2013