OFFSET
1,1
MATHEMATICA
f[n_] := Block[{k = 2}, While[ Mod[ Prime[k - 1] + Prime[k + 1], n] != 0, k++ ]; Prime[k]]; Array[f, 66]
With[{prs=Partition[Prime[Range[250]], 3, 1]}, Transpose[Flatten[ Table[ Select[ prs, Divisible[ First[#]+Last[#], n]&, 1], {n, 70}], 1]][[2]]] (* Harvey P. Dale, Jan 16 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 11 2006
STATUS
approved