OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(9) = 2699 because it is prime and 2701 = 37*73 and 73*74/2 = 2701.
MATHEMATICA
tri[n_] := n*(n + 1)/2; Select[tri /@ Range[2000] - 2, PrimeQ[#] && PrimeOmega[# + 2] == 2 &] (* Amiram Eldar, Dec 17 2019 *)
Select[Prime[Range[150000]], (PrimeQ[#+2]|| PrimeOmega[#+2]==2)&&OddQ[Sqrt[ 1+8(#+2)]]&] (* Harvey P. Dale, Apr 12 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Aug 29 2005
STATUS
approved