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
KEYWORD
nonn,base
AUTHOR
Hugo Pfoertner, Jan 10 2022
STATUS
approved