OFFSET
1,1
COMMENTS
Triangular(p) = p*(p+1)/2.
MATHEMATICA
t = Select[Prime[Range[300]], PrimeQ[# (# + 1)/2 + 1] &]; t*(t + 1)/2 + 1 (* T. D. Noe, Nov 19 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Nov 16 2013
STATUS
approved