OFFSET
1,1
EXAMPLE
MATHEMATICA
f[x_] := Mod[Prime[x], 210] d[x_] := Prime[x+1]-Prime[x] t=Table[0, {210}]; Do[s=f[n]; If[Equal[d[n], 6]&&s<211&&t[[s]]==0, t[[s]]=Prime[n]], {n, 1, 1000}]; t
CROSSREFS
KEYWORD
fini,full,nonn
AUTHOR
Labos Elemer, Dec 13 2002
STATUS
approved