A372586 Numbers k such that (sum of binary indices of k) + (sum of prime indices of k) is odd.
1, 2, 3, 4, 5, 8, 9, 12, 15, 16, 17, 20, 21, 29, 32, 36, 42, 43, 45, 46, 47, 48, 51, 53, 54, 55, 59, 60, 61, 63, 64, 65, 66, 67, 68, 71, 73, 78, 79, 80, 81, 84, 89, 91, 93, 94, 95, 97, 99, 101, 105, 110, 111, 113, 114, 115, 116, 118, 119, 121, 122, 125, 127
Offset: 1
Keywords
Examples
The terms (center), their binary indices (left), and their weakly decreasing prime indices (right) begin: {1} 1 () {2} 2 (1) {1,2} 3 (2) {3} 4 (1,1) {1,3} 5 (3) {4} 8 (1,1,1) {1,4} 9 (2,2) {3,4} 12 (2,1,1) {1,2,3,4} 15 (3,2) {5} 16 (1,1,1,1) {1,5} 17 (7) {3,5} 20 (3,1,1) {1,3,5} 21 (4,2) {1,3,4,5} 29 (10) {6} 32 (1,1,1,1,1) {3,6} 36 (2,2,1,1) {2,4,6} 42 (4,2,1) {1,2,4,6} 43 (14) {1,3,4,6} 45 (3,2,2) {2,3,4,6} 46 (9,1) {1,2,3,4,6} 47 (15) {5,6} 48 (2,1,1,1,1)
Crossrefs
Programs
-
Mathematica
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; bix[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; Select[Range[100],OddQ[Total[bix[#]]+Total[prix[#]]]&]
Comments