A158520 Numbers n such that 2^n divided by the number of digits of 2^n is an integer.

0, 1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 24, 25, 26, 50, 51, 52, 53, 103, 104, 105, 106, 210, 211, 212, 422, 423, 424, 425, 848, 849, 850, 1698, 1699, 1700, 3399, 3400, 3401, 6800, 6801, 6802, 6803, 13604, 13605, 13606, 27210, 27211, 27212, 27213

Offset: 1

Author

Ctibor O. Zizka, Mar 20 2009

Keywords

• nonn
• base
• easy

Comments

Also n such that A000079(n)/A034887(n) is an integer.

Crossrefs

Cf. A000079, A034887

Programs

Mathematica

ndnQ[n_]:=Module[{n2=2^n},Divisible[n2,IntegerLength[n2]]]; Select[Range[ 0,28000],ndnQ] (* Harvey P. Dale, Apr 16 2013 *)

Extensions

Extended by R. J. Mathar, Mar 26 2009