OFFSET
1,1
COMMENTS
EXAMPLE
The terms (center), their binary indices (left), and their prime indices (right) begin:
{2} 2 (1)
{1,2} 3 (2)
{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,3,4} 13 (6)
{2,3,4} 14 (4,1)
{1,2,3,4} 15 (3,2)
{2,5} 18 (2,2,1)
{1,2,5} 19 (8)
{1,3,5} 21 (4,2)
{2,3,5} 22 (5,1)
{4,5} 24 (2,1,1,1)
{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)
{6} 32 (1,1,1,1,1)
{1,6} 33 (5,2)
{2,6} 34 (7,1)
MATHEMATICA
bix[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], OddQ[Min[bix[#]]+Min[prix[#]]]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Gus Wiseman, May 06 2024
STATUS
approved