OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 11 = 1 + 10; a(2) = 13 = 3 + 10.
MATHEMATICA
s = Select[Union@ Flatten@ Table[i(i + 1)/2 + j(j + 1)/2, {i, 200}, {j, 0, i}], PrimeQ@ # &]; t = Select[Range@Length@s - 1, s[[ # ]] + 2 == s[[ # + 1]] &]; Sort@Join[s[[t]], s[[t + 1]]] (* 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