|
%I #5 Dec 30 2012 04:00:50
%S 19,5651,88811,165709,284741,626621,855731,1068709,1146791,6561011,
%T 7540451,8573441,11900509,15760099,17843471,18504379,19089611,
%U 21036139,24001721,25658449,39431929,42981941,43534031,45002599
%N Primes of the form : (n plus OR minus 2 = prime) and (n plus OR minus 4 = prime) and (n plus OR minus 6 = prime) ...and (n plus OR minus 12 = prime).
%t lst={};Do[p=Prime[n];If[(PrimeQ[p-2]||PrimeQ[p+2])&&(PrimeQ[p-4]||PrimeQ[p+4])&&(PrimeQ[p-6]||PrimeQ[p+6])&&(PrimeQ[p-8]||PrimeQ[p+8])&&(PrimeQ[p-10]||PrimeQ[p+10])&&(PrimeQ[p-12]||PrimeQ[p+12]),AppendTo[lst,p]],{n,10!}];lst
%Y A145213
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Oct 04 2008
|
