A372590 Numbers whose binary weight (A000120) plus bigomega (A001222) is odd.
1, 3, 4, 5, 12, 14, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 29, 30, 35, 38, 43, 45, 48, 49, 53, 55, 56, 62, 63, 64, 66, 68, 69, 71, 72, 74, 75, 78, 80, 81, 82, 83, 84, 87, 88, 89, 91, 92, 93, 94, 99, 100, 101, 102, 104, 105, 108, 113, 114, 115, 116, 118, 120
Offset: 1
Keywords
Examples
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)
Crossrefs
Programs
-
Mathematica
Select[Range[100],OddQ[DigitCount[#,2,1]+PrimeOmega[#]]&]
Comments