login
A136510
Smallest k>1 such that in binary representation n is contained in n^k.
4
2, 2, 3, 2, 3, 3, 3, 2, 3, 3, 5, 3, 4, 3, 3, 2, 3, 3, 6, 3, 6, 5, 3, 3, 5, 5, 2, 3, 3, 3, 3, 2, 3, 3, 6, 3, 8, 6, 3, 3, 2, 9, 4, 5, 6, 5, 5, 3, 5, 5, 4, 5, 6, 2, 5, 3, 5, 3, 6, 3, 6, 3, 3, 2, 3, 3, 6, 3, 7, 6, 10, 3, 9, 11, 5, 7, 8, 4, 5, 3, 9, 2, 8, 9, 7, 4, 6, 5, 6, 6, 3, 5, 5, 5, 5, 3, 5, 5, 3, 5, 9, 11, 7, 5
OFFSET
1,1
COMMENTS
A136511(n) = n^a(n);
a(A018826(n)) = 2; 1 < a(A136490(n)) <= 3;
conjecture: a(n) is defined for all n.
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
Variant of A086063.
Sequence in context: A164996 A216195 A304333 * A080071 A340862 A202472
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jan 03 2008
STATUS
approved