%I #6 Nov 18 2013 09:26:52
%S 41,896,1051,2106,2241,2456,2631,2911,3886,4361,9346,10366,12586,
%T 13131,13796,14071,14896,15736,15876,17451,19291,20091,20166
%N Numbers n such that 6*n+5, 6*n+11, 6*n+17, 6*n+23 are consecutive primes.
%H Harvey P. Dale, <a href="/A090836/b090836.txt">Table of n, a(n) for n = 1..1000</a>
%e 6*41+5=251, 6*41+11=257, 6*41+17=263, 6*41+23=269; 251,257,263,269 are consecutive primes.
%t Select[(#-5)/6&/@Transpose[Select[Partition[Prime[Range[11500]],4,1], Union[Differences[#]]=={6}&]][[1]],IntegerQ] (* _Harvey P. Dale_, Nov 18 2013 *)
%Y Cf. A033451, A090832, A090833, A090834, A090835, A090837, A090838, A090839.
%K easy,nonn
%O 1,1
%A _Pierre CAMI_, Dec 09 2003
|