cp's OEIS Frontend

A027867 Primes of the form n^2 + (n+1)^2 + (n+2)^2 + (n+3)^2 + (n+4)^2 + (n+5)^2.

%I A027867 #27 Aug 11 2024 14:41:29
%S A027867 139,199,271,811,1279,1459,2539,2791,3331,3919,4231,7159,8011,9859,
%T A027867 15319,17191,17839,20551,24979,25759,41851,42859,48079,58231,59419,
%U A027867 65539,68071,74611,88591,102199,125299,132331,143239,154579,156511,166351,170371,172399,243631,276079,281251,289099,294391
%N A027867 Primes of the form n^2 + (n+1)^2 + (n+2)^2 + (n+3)^2 + (n+4)^2 + (n+5)^2.
%C A027867 Primes of form 55 + 30n + 6n^2. - _Zak Seidov_, May 20 2014
%C A027867 All terms == 1 or 19 (mod 30). - _Robert Israel_, Jul 18 2017
%H A027867 Robert Israel, <a href="/A027867/b027867.txt">Table of n, a(n) for n = 1..10000</a>
%H A027867 P. De Geest, <a href="https://www.worldofnumbers.com/index.html">World!Of Numbers</a>
%F A027867 a(n) = 55 + 30*m + 6*m^2 where m = A027866(n). - _Zak Seidov_, May 20 2014
%p A027867 select(isprime, [seq(6*t^2-30*t+55, t=6..1000)]); # _Robert Israel_, Jul 18 2017
%t A027867 lst={};Do[a=n^2+(n+1)^2+(n+2)^2+(n+3)^2+(n+4)^2+(n+5)^2;If[PrimeQ[a],AppendTo[lst,a]],{n,8!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jun 02 2009 *)
%t A027867 Select[Table[Total[(n+Range[0,5])^2],{n,200}],PrimeQ] (* _Harvey P. Dale_, Jul 18 2011 *)
%t A027867 Select[Total/@Partition[Range[300]^2,6,1],PrimeQ] (* _Harvey P. Dale_, Jul 23 2021 *)
%Y A027867 Cf. A027866.
%K A027867 nonn
%O A027867 1,1
%A A027867 _Patrick De Geest_
%E A027867 More terms from _Robert Israel_, Jul 18 2017