OFFSET
1,1
COMMENTS
Equivalently, p, p+6, p+10, p+16 and p+18 are consecutive primes.
Subsequence of A078856. - R. J. Mathar, May 06 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
23011 is in the sequence since 23011, 23017, 23021, 23027 and 23029 are consecutive primes.
MAPLE
L:= [2, 3, 5, 7, 11]:
count:= 0: Res:= NULL:
while count < 50 do
L:= [op(L[2..5]), nextprime(L[5])];
if L - [L[1]$5] = [0, 6, 10, 16, 18] then
count:= count+1;
Res:= Res, L[1];
fi
od:
Res; # Robert Israel, Jun 04 2018
MATHEMATICA
Transpose[Select[Partition[Prime[Range[50000]], 5, 1], Differences[#]=={6, 4, 6, 2}&]][[1]] (* Harvey P. Dale, Mar 04 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 19 2002
EXTENSIONS
Edited by Dean Hickerson, Dec 20 2002
STATUS
approved