OFFSET
1,1
EXAMPLE
66646 is in the sequence because 3301, 3307, 3313, 3319, 3323 and 3329 are consecutive primes with differences (6,6,6,4,6).
MATHEMATICA
With[{k = 5}, FromDigits /@ Select[Tuples[Range[2, 6, 2], k], Function[m, Count[Range[k - 1, 10^4], n_ /; Times @@ Boole@ Map[PrimeQ, Prime@ n + Accumulate@ m] == 1] > 0]]] (* Michael De Vlieger, Mar 25 2017 *) (* or *)
FromDigits /@ Union@ Select[ Partition[ Differences@ Prime[Range[4, 9000]], 5, 1], Max@ # <= 6 &] (* Giovanni Resta, Mar 25 2017 *)
CROSSREFS
KEYWORD
fini,full,base,nonn
AUTHOR
Labos Elemer, Dec 19 2002
EXTENSIONS
Edited by Dean Hickerson, Dec 20 2002
STATUS
approved