OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
EXAMPLE
103 + prime(103) = 103 + 563 = 666 = T(36).
MATHEMATICA
TriangularQ[n_] := IntegerQ[Sqrt[1 + 8*n]]; Select[Range[20000], TriangularQ[# + Prime[#]] &] (* T. D. Noe, Jan 27 2014 *)
PROG
(PARI) isok(n) = ispolygonal(n + prime(n), 3); \\ Michel Marcus, Jan 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved