OFFSET
0,1
MATHEMATICA
Complement[ Prime@ Range@115, Union@ Flatten@ Table[i(i + 1)/2 + j(j + 1)/2, {i, 35}, {j, 0, i}]] (* Robert G. Wilson v, Apr 27 2006 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Greg Huber, Apr 24 2006
EXTENSIONS
More terms from Robert G. Wilson v, Apr 27 2006
STATUS
approved