login
A350659
a(n) is the maximal digit, expressed in base 10, in the base-n representation of 2^n.
2
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
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
KEYWORD
nonn,base
AUTHOR
Hugo Pfoertner, Jan 10 2022
STATUS
approved