OFFSET
1,1
COMMENTS
a(1) = A229832(4). - Jonathan Sondow, Oct 13 2013
MATHEMATICA
wps[{a_, b_, c_, d_, e_, f_}]:=b-a<c-b<d-c<e-d<f-e; Transpose[Select[ Partition[ Prime[Range[10000]], 6, 1], wps]][[2]] (* Harvey P. Dale, Jun 25 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Apr 10 2000
STATUS
approved