|
%I #2 Mar 31 2012 12:38:18
%S 3,5,11,19,23,31,43,47,53,59,61,73,101,103,149,151,157,167,173,179,
%T 181,211,223,227,251,269,307,313,331,347,359,373,379,389,401,409,419,
%U 421,431,433,439,479,487,503,509,571,577,593,601,659,691,709,773,811,839
%N Prime numbers such that the sum of any 5 consecutive terms is a prime.
%t a=3;b=5;c=11;d=19;lst={a,b,c,d};Do[z=a+b+c+d+n;If[PrimeQ[z]&&n>b&&PrimeQ[n],AppendTo[lst,n];a=b;b=c;c=d;d=n],{n,0,8!}];lst
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 17 2008
|
