OFFSET
2,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 2..174
EXAMPLE
a(10) = 62, from A003635.
MATHEMATICA
Do[n = 1; While[k = n; While[ Apply[ Plus, IntegerDigits[k, b] ]*n != k && k < 100n, k += n ]; k != 100n, n++ ]; Print[n], {b, 2, 54} ]
PROG
(Python)
from itertools import count, combinations_with_replacement
from sympy.ntheory import digits
def A052491(n):
for k in count(1):
for l in count(1):
if (n-1)*l*k < n**(l-1):
return k
for d in combinations_with_replacement(range(n), l):
if (s:=sum(d)) > 0 and sorted(digits(s*k, n)[1:]) == list(d):
break
else:
continue
break # Chai Wah Wu, May 09 2023
CROSSREFS
KEYWORD
nonn,nice,easy,base
AUTHOR
J. H. Conway, Dec 30 2000
EXTENSIONS
Corrected and extended by David Radcliffe, Jan 08 2001
More terms from David W. Wilson, Jan 10 2001
STATUS
approved