OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)
MATHEMATICA
Module[{nn=200, pr, sp, len}, pr=Prime[Range[PrimePi[nn]]]; sp=Select[Range[ nn], PrimeOmega[#]==2&]; len=Min[Length[pr], Length[sp]]; Thread[{Take[ pr, len], Take[ sp, len]}]]//Flatten (* Harvey P. Dale, Jun 02 2020 *)
CROSSREFS
KEYWORD
easy,less,nonn
AUTHOR
Jonathan Vos Post, Jun 02 2007
STATUS
approved