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.

A165286 Primes which are the sum of two or more consecutive terms of A072055.

This page as a plain text file.
%I A165286 #5 Jun 11 2015 10:52:30
%S A165286 23,61,83,101,139,157,197,263,283,293,331,349,367,383,401,449,491,509,
%T A165286 541,569,571,577,641,659,661,701,751,773,809,811,853,859,881,887,967,
%U A165286 977,997,1009,1039,1069,1117,1123,1181,1193,1217,1237,1279,1283,1361
%N A165286 Primes which are the sum of two or more consecutive terms of A072055.
%C A165286 The terms in A072055 are odd, so the count of terms in the sum must be odd to yield a prime.
%e A165286 a(1)= 5+7+11 = sum_{i=1..3} A072055(i) = 23.
%e A165286 a(2) = sum_{i=1..5} A072055(i) = 5+7+11+15+23 = 61. a(3) = 7+11+15+23+27 = 83.
%t A165286 lst={};Do[s=2*Prime[m]+1;Do[p=Prime[n];s+=(2*p+1);If[PrimeQ[s], If[s<=6949, AppendTo[lst,s]]],{n,m+1,6!}],{m,1,6!}];lst=Take[Union@lst,200]
%t A165286 Module[{nn=100,terms},terms=2*Prime[Range[nn]]+1;Take[Union[Select[ Flatten[ Table[Total/@Partition[terms,n,1],{n,3,nn,2}]],PrimeQ]],nn/2]] (* _Harvey P. Dale_, Jun 11 2015 *)
%Y A165286 Cf. A165285
%K A165286 nonn
%O A165286 1,1
%A A165286 _Vladimir Joseph Stephan Orlovsky_, Sep 13 2009
%E A165286 Redefined in terms of A072055; cross-references to unrelated sequences deleted - _R. J. Mathar_, Sep 16 2009