OFFSET
1,1
COMMENTS
EXAMPLE
a(3) = 3*6(6-1)/2 + 1 = 10 = 2 * 5.
MATHEMATICA
SemiprimeQ[n_] := Total[FactorInteger[n]][[2]] == 2; Select[Table[3*n (n - 1)/2 + 1, {n, 150}], SemiprimeQ]
Select[Table[(3n(n-1))/2+1, {n, 200}], PrimeOmega[#]==2&] (* Harvey P. Dale, May 13 2012 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jonathan Vos Post, Feb 12 2011
STATUS
approved