OFFSET
1,1
COMMENTS
EXAMPLE
The terms together with their binary expansions and binary indices begin:
2: 10 ~ {2}
3: 11 ~ {1,2}
4: 100 ~ {3}
6: 110 ~ {2,3}
9: 1001 ~ {1,4}
11: 1011 ~ {1,2,4}
12: 1100 ~ {3,4}
16: 10000 ~ {5}
18: 10010 ~ {2,5}
23: 10111 ~ {1,2,3,5}
26: 11010 ~ {2,4,5}
29: 11101 ~ {1,3,4,5}
33: 100001 ~ {1,6}
38: 100110 ~ {2,3,6}
41: 101001 ~ {1,4,6}
43: 101011 ~ {1,2,4,6}
44: 101100 ~ {3,4,6}
48: 110000 ~ {5,6}
50: 110010 ~ {2,5,6}
55: 110111 ~ {1,2,3,5,6}
58: 111010 ~ {2,4,5,6}
61: 111101 ~ {1,3,4,5,6}
MATHEMATICA
Select[Range[100], PrimeQ[Total[First /@ Position[Reverse[IntegerDigits[#, 2]], 1]]]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Gus Wiseman, May 18 2024
STATUS
approved