|
%I #2 Mar 31 2012 12:38:21
%S 17,23,43,73,79,101,151,181,197,239,277,283,317,337,359,367,463,491,
%T 503,523,593,661,733,743,757,809,859,881,907,937,967,983,997,1013,
%U 1087,1151,1163,1171,1217,1301,1321,1559,1579,1609,1621,1637,1867,1913,1987,1997
%N Primes of the form prime(n)+prime(n+4)+1.
%C 17=3+13+1, 23=5+17+1, 43=13+29+1, 73=29+43+1, 79=31+47+1, 101=41+59+1,...
%t lst={};Do[p1=Prime[n];p5=Prime[n+4];p=p1+p5+1;If[PrimeQ[p],AppendTo[lst,p]],{n,6!}];lst
%Y Cf. A159043
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 03 2009
|
