OFFSET
1,1
COMMENTS
EXAMPLE
17 is not of the form j*T_k +/- 1 for any j = 1 or 2 and the triangular numbers, 10, 15 or 21.
MATHEMATICA
s = {}; Do[m = j*k*(k + 1)/2; If[PrimeQ[m - 1], AppendTo[s, m - 1]]; If[PrimeQ[m + 1], AppendTo[s, m + 1]], {j, 140}, {k, 4, 43}]; Complement[ Prime@ Range@220, Take[Union@s, 200]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post & Robert G. Wilson v, Dec 05 2006
STATUS
approved
