1,1

A136511(n) = n^a(n);

a(A018826(n)) = 2; 1 < a(A136490(n)) <= 3;

conjecture: a(n) is defined for all n.

R. Zumkeller, Table of n, a(n) for n = 1..1000

Index entries for sequences related to binary expansion of n

Table[Module[{k=2}, While[SequenceCount[IntegerDigits[n^k, 2], IntegerDigits[ n, 2]]==0, k++]; k], {n, 110}] (* Harvey P. Dale, Aug 20 2020 *)

Sequence in context: A164996 A216195 A304333 * A080071 A202472 A235613

Adjacent sequences: A136507 A136508 A136509 * A136511 A136512 A136513

nonn,base

Reinhard Zumkeller, Jan 03 2008

approved