A074151 Least power of 2 > 2^n with initial digits matching the digits of 2^n.

16, 256, 4096, 8192, 16384, 32768, 649037107316853453566312041152512, 12855504354071922204335696738729300820177623950262342682411008

Offset

0,1

Comments

The next two terms are 2^689 and 2^1660, which are too large to include. - Stefan Steinerberger, Mar 24 2006

Links

Amiram Eldar, Table of n, a(n) for n = 0..12

Mathematica

a[n_] := Module[{d = IntegerDigits[2^n], nd, k = n + 1}, nd = Length[d]; While[IntegerDigits[2^k][[1 ;; nd]] != d, k++]; 2^k]; Array[a, 8, 0] (* Amiram Eldar, Jul 19 2025 *)

Crossrefs

Cf. A000079, A074152.

Sequence in context: A171290 A136577 A190134 * A267792 A220252 A267976

Adjacent sequences: A074148 A074149 A074150 * A074152 A074153 A074154

Keyword

base,nonn,less

Author

Amarnath Murthy, Aug 29 2002

Extensions

More terms from Stefan Steinerberger, Mar 24 2006

Name clarified by Sean A. Irvine, Jan 12 2025

Offset changed to 0 and a(0) prepended by Amiram Eldar, Jul 19 2025

Status

approved