A004646 -id:A004646 - cp's OEIS frontend

A364049 a(n) is the least k such that the base-n digits of 2^k are not all distinct.

2, 2, 4, 5, 6, 3, 6, 11, 16, 14, 11, 12, 8, 4, 8, 15, 16, 12, 16, 18, 9, 17, 15, 14, 24, 13, 16, 15, 10, 5, 10, 19, 24, 14, 21, 15, 18, 15, 19, 17, 17, 28, 18, 12, 24, 23, 31, 24, 31, 20, 26, 44, 35, 33, 25, 18, 36, 14, 14, 18, 12, 6, 12, 23, 45, 37, 38, 24, 20, 35, 36, 26, 51, 31, 33, 47, 34, 34

Offset: 2

Robert Israel, Jul 03 2023

			a(10) = 16 because 2^16 = 65536 does not have all distinct digits in base 10, while 2^k does have all distinct digits for 1 <= k <= 15.

Robert Israel, Table of n, a(n) for n = 2..10000

Cf. A004642, A004643, A000866, A004645, A004646, A004647, A001357, A000079, A011557, A364052, A364089.

f:= proc(n) local k,L;
  for k from 2 do
    L:= convert(2^k,base,n);
    if nops(L) <> nops(convert(L,set)) then return k fi
  od;
end proc:
map(f, [$2..100]);

from itertools import count
from sympy.ntheory import digits
def a(n): return next(k for k in count(2) if len(set(d:=digits(1<Michael S. Branicky, Jul 05 2023

A364089 a(n) is the greatest k such that the base-n digits of 2^k are all distinct.

Original entry on oeis.org

1, 1, 3, 4, 5, 8, 5, 10, 29, 19, 19, 19, 16, 18, 7, 43, 41, 37, 45, 39, 55, 33, 43, 60, 35, 61, 56, 50, 44, 69, 9, 64, 44, 80, 43, 88, 53, 71, 56, 68, 59, 78, 76, 74, 95, 109, 111, 81, 86, 136, 117, 75, 98, 83, 84, 99, 104, 116, 95, 118, 60, 81, 11, 119, 119, 172, 140, 97, 105, 113, 93, 122, 92

Offset: 2

Robert Israel, Jul 04 2023

a(n) <= log_2(A062813(n)).

			a(10) = 29 because all decimal digits of 2^29 = 536870912 are distinct.

Cf. A004642, A004643, A000866, A004645, A004646, A004647, A001357, A000079, A364049.

f:= proc(b) local M,k,L;
  M:= b^b - (b^b-b)/(b-1)^2;
  for k from ilog2(M) to 1 by -1 do
    L:= convert(2^k,base,b);
    if nops(L) = nops(convert(L,set)) then return k fi
  od
end proc:
map(f, [$2..100]);

from sympy.ntheory.factor_ import digits
def A364089(n):
    m = 1<<(l:=((r:=n**n)-(r-n)//(n-1)**2).bit_length()-1)
    while len(d:=digits(m,n)[1:]) > len(set(d)):
        l -= 1
        m >>= 1
    return l # Chai Wah Wu, Jul 07 2023

cp's OEIS Frontend

A364049 a(n) is the least k such that the base-n digits of 2^k are not all distinct.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Python