OFFSET
2,3
COMMENTS
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}]]]];
Table[Max[bix[n]]-Max[prix[n]], {n, 2, 100}]
CROSSREFS
KEYWORD
sign,base
AUTHOR
Gus Wiseman, May 07 2024
STATUS
approved