OFFSET
1,1
MATHEMATICA
f[n_] := Block[{k = 1, s = {}, trnglr}, While[s == {}, trnglr = n*k(k + 1)/2; If[PrimeQ[trnglr - 1], AppendTo[s, trnglr - 1]]; If[PrimeQ[trnglr + 1], AppendTo[s, trnglr + 1]]; k++ ]; s[[1]]]; Array[f, 63]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post & Robert G. Wilson v, Dec 01 2006
STATUS
approved