cp's OEIS Frontend

A227994 Primes that are the sum of the squares of three integers that form an arithmetic sequence with difference 7.

%I A227994 #36 Jun 10 2021 11:15:01
%S A227994 461,773,1181,1973,2621,6173,7901,9173,11261,21773,29501,37061,44021,
%T A227994 50021,51581,54773,58061,66701,68501,72173,75941,81773,85781,96221,
%U A227994 109541,118901,126173,143981,204461,210773,220421,233621,236981,254141,279173,286541,328781,336773
%N A227994 Primes that are the sum of the squares of three integers that form an arithmetic sequence with difference 7.
%C A227994 Primes of the form 3k^2 + 42k + 245. - _Charles R Greathouse IV_, Aug 14 2013
%H A227994 Harvey P. Dale, <a href="/A227994/b227994.txt">Table of n, a(n) for n = 1..1000</a>
%e A227994 461 is a term since 4^2 + 11^2 + 18^2 = 461;
%e A227994 773 is a term since 8^2 + 15^2 + 22^2 = 773;
%e A227994 1181 is a term since 12^2 + 19^2 + 26^2 = 1181;
%e A227994 1973 is a term since 18^2 + 25^2 + 32^2 = 1973.
%p A227994 for x in range(1, 2000): b=x**2  : c= (x+7)**2: d=(x+14)**2:e=(b+c+d): print x,e
%t A227994 Select[Table[Total[(n+{0,7,14})^2],{n,500}],PrimeQ] (* _Harvey P. Dale_, Jun 10 2021 *)
%o A227994 (PARI) for(n=1,1e3,if(isprime(t=3*(n+7)^2+98),print1(t", "))) \\ _Charles R Greathouse IV_, Aug 14 2013
%Y A227994 Subsequence of A085317. - _Michel Marcus_, Apr 01 2019
%K A227994 nonn
%O A227994 1,1
%A A227994 _Will Gosnell_, Aug 14 2013
%E A227994 a(14)-a(38) from _Charles R Greathouse IV_, Aug 14 2013
%E A227994 Name clarified by _Jon E. Schoenfield_, Apr 01 2019