OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
a(1) = semiprime(T(1)) = semiprime(1) = 4 = 2^2.
a(2) = semiprime(T(2)) = semiprime(3) = 9 = 3^2.
a(3) = semiprime(T(3)) = semiprime(6) = 15 = 3 * 5.
a(4) = semiprime(T(4)) = semiprime(10) = 26 = 2 * 13.
MATHEMATICA
Module[{nn=3000, sem, tr, len}, sem=Select[Range[nn], PrimeOmega[#]==2&]; len = Length[sem]; tr=Table[If[OddQ[Sqrt[8n+1]], 1, 0], {n, len}]; Pick[ sem, tr, 1]](* Harvey P. Dale, Apr 24 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Oct 27 2006
EXTENSIONS
a(24)-a(48) from Giovanni Resta, Jun 13 2016
STATUS
approved
