OFFSET
1,2
COMMENTS
The even version is A372591.
EXAMPLE
The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
{1} 1 ()
{1,2} 3 (2)
{3} 4 (1,1)
{1,3} 5 (3)
{3,4} 12 (2,1,1)
{2,3,4} 14 (4,1)
{5} 16 (1,1,1,1)
{1,5} 17 (7)
{2,5} 18 (2,2,1)
{3,5} 20 (3,1,1)
{1,3,5} 21 (4,2)
{2,3,5} 22 (5,1)
{1,2,3,5} 23 (9)
{1,4,5} 25 (3,3)
{2,4,5} 26 (6,1)
{1,2,4,5} 27 (2,2,2)
{1,3,4,5} 29 (10)
{2,3,4,5} 30 (3,2,1)
{1,2,6} 35 (4,3)
{2,3,6} 38 (8,1)
{1,2,4,6} 43 (14)
{1,3,4,6} 45 (3,2,2)
MATHEMATICA
Select[Range[100], OddQ[DigitCount[#, 2, 1]+PrimeOmega[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 14 2024
STATUS
approved