OFFSET
1,1
COMMENTS
EXAMPLE
10 is a member because 10 is 4th semiprime and 4 is a semiprime.
MATHEMATICA
With[{sprs=Select[Range[700], PrimeOmega[#]==2&]}, Flatten[Table[Take[sprs, Take[ sprs, {n}]], {n, 60}]]] (* Harvey P. Dale, Aug 22 2011 *)
PROG
(PARI) upto(limit)={ my(spr=select(x->bigomega(x)==2, [1..limit]), n=1); while(spr[n]<#spr, n++); vecextract(spr, spr[1..n]) } \\ R. J. Mathar, May 23 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 24 2004
STATUS
approved
