OFFSET
1,1
COMMENTS
The odd version is A372590.
EXAMPLE
The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin:
{2} 2 (1)
{2,3} 6 (2,1)
{1,2,3} 7 (4)
{4} 8 (1,1,1)
{1,4} 9 (2,2)
{2,4} 10 (3,1)
{1,2,4} 11 (5)
{1,3,4} 13 (6)
{1,2,3,4} 15 (3,2)
{1,2,5} 19 (8)
{4,5} 24 (2,1,1,1)
{3,4,5} 28 (4,1,1)
{1,2,3,4,5} 31 (11)
{6} 32 (1,1,1,1,1)
{1,6} 33 (5,2)
{2,6} 34 (7,1)
{3,6} 36 (2,2,1,1)
{1,3,6} 37 (12)
{1,2,3,6} 39 (6,2)
{4,6} 40 (3,1,1,1)
{1,4,6} 41 (13)
{2,4,6} 42 (4,2,1)
MATHEMATICA
Select[Range[100], EvenQ[DigitCount[#, 2, 1]+PrimeOmega[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 14 2024
STATUS
approved