|
%I #11 Apr 21 2023 05:11:09
%S 195,5739,18459,32259,33939,60291,74019,169491,187131,244899,276819,
%T 388179,783531,902139,3588339,5041491,5145819,5193051,8687091,9637491,
%U 10227291,10910019,11341491,11757339,14834379,15354651,16115091
%N Sums s of squares of three consecutive primes, such that s-+2 are primes.
%H Robert Israel, <a href="/A164130/b164130.txt">Table of n, a(n) for n = 1..10000</a>
%F A133529 INTERSECT A087679. - _R. J. Mathar_, Aug 27 2009
%e 5^2 + 7^2 + 11^2 = 195 is a sum of the squared consecutive primes 5, 7 and 11, and 193 and 197 are primes, so 195 is a member of the sequence.
%p q:= 2: r:= 3: R:= NULL: count:= 0:
%p while count < 100 do
%p p:= q; q:= r; r:= nextprime(r);
%p s:= p^2+q^2+r^2;
%p if isprime(s-2) and isprime(s+2) then
%p count:= count+1; R:= R,s;
%p fi;
%p od:
%p R; # _Robert Israel_, Apr 21 2023
%t lst={};Do[p=Prime[n]^2+Prime[n+1]^2+Prime[n+2]^2;If[PrimeQ[p-2]&&PrimeQ[p+2], AppendTo[lst,p]],{n,8!}];lst
%Y Cf. A075893, A133529, A133530, A034962, A164129
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009
%E Comment turned into example by _R. J. Mathar_, Aug 27 2009
|
