OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Table[Module[{k=2}, While[SequenceCount[IntegerDigits[n^k, 2], IntegerDigits[ n, 2]]==0, k++]; k], {n, 110}] (* Harvey P. Dale, Aug 20 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jan 03 2008
STATUS
approved