OFFSET
1,1
COMMENTS
MATHEMATICA
lim=100; SP=Select[Range[lim], PrimeOmega[#]==2&]; ll=Length[SP]; Table[FromDigits[IntegerDigits[SP[[n]], 2]], {n, ll}] (* James C. McMahon, Oct 27 2024 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Sep 09 2006
EXTENSIONS
a(31)-a(34) from James C. McMahon, Oct 27 2024
STATUS
approved