A350659 a(n) is the maximal digit, expressed in base 10, in the base-n representation of 2^n.

1, 2, 1, 2, 4, 4, 4, 8, 4, 10, 5, 9, 13, 10, 1, 11, 17, 8, 16, 16, 20, 22, 16, 22, 22, 26, 20, 26, 18, 30, 4, 21, 32, 33, 31, 36, 17, 24, 29, 38, 31, 40, 40, 17, 25, 42, 47, 48, 41, 49, 49, 38, 33, 45, 47, 44, 56, 57, 59, 57, 41, 60, 16, 33, 64, 64, 42, 60, 67

Offset

2,2

Links

Alois P. Heinz, Table of n, a(n) for n = 2..10000

Maple

a:= n-> max(convert(2^n, base, n)):
seq(a(n), n=2..70);  # Alois P. Heinz, Jan 10 2022

Mathematica

a[n_] := Max[IntegerDigits[2^n, n]]; Array[a, 100, 2] (* Amiram Eldar, Jan 10 2022 *)

Prog

(PARI) for(n=2, 72, print1(vecmax(digits(2^n, n)), ", "))
(Python)
from sympy.ntheory.digits import digits
def a(n): return max(digits(2**n, n)[1:])
print([a(n) for n in range(2, 71)]) # Michael S. Branicky, Jan 10 2022

Crossrefs

Cf. A350658.

Sequence in context: A133950 A241512 A360095 * A094265 A153898 A108802

Adjacent sequences: A350656 A350657 A350658 * A350660 A350661 A350662

Keyword

nonn,base

Author

Hugo Pfoertner, Jan 10 2022

Status

approved