A074152 Least power of 3 > 3^n with initial digits matching the digits of 3^n.

19683, 387420489, 94143178827, 278128389443693511257285776231761

Offset

0,1

Comments

The next term is too large to include.

Links

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

Mathematica

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

Crossrefs

Cf. A000244, A074151.

Sequence in context: A016845 A016893 A016953 * A017025 A017109 A017205

Adjacent sequences: A074149 A074150 A074151 * A074153 A074154 A074155

Keyword

base,nonn,less

Author

Amarnath Murthy, Aug 29 2002

Extensions

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

Status

approved