OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..500
EXAMPLE
MATHEMATICA
d[x_] := Prime[x+1]-Prime[x] Do[If[Equal[d[n], 16]&&Equal[d[n+1], 2]&& Equal[d[n+2], 16]&&Equal[d[n+3], 2], k=k+1; Print[Prime[n]]], {n, 1, 10000000}]
Select[Partition[Prime[Range[400000]], 5, 1], Differences[#]=={16, 2, 16, 2}&][[All, 1]] (* Harvey P. Dale, Jan 01 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 02 2002
STATUS
approved