OFFSET
1,1
COMMENTS
Equivalently: a(n) is the number whose decimal digits are the next larger permutation of those of n, allowing any number of leading zeros.
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..1000
Wikipedia, Permutation: Generation in lexicographic order, as of Feb. 2023.
PROG
(PARI) A360443(n)={forperm(concat(0, digits(n)), p, n||return(fromdigits(Vec(p))); n=0)} \\ M. F. Hasler, Feb 23 2023; similar idea also suggested by Ruud H.G. van Tol.
(Python) # From Arthur O'Dwyer, edited by M. F. Hasler, Feb 22 2023
def A360443(n):
s = '0' + str(n)
i = next(i for i in range(len(s) - 1, 0, -1) if s[i-1] < s[i])
tail = s[i-1:]
j = min((ch, j) for j, ch in enumerate(tail) if s[i-1] < ch)[1]
s = s[:i-1] + tail[j] + ''.join(sorted(tail[:j] + tail[j+1:]))
return int(s)
for n in range(100): print(n, A360443(n))
CROSSREFS
Cf. A009994 (numbers with digits in nondecreasing order: don't appear in this sequence).
KEYWORD
nonn,easy,base
AUTHOR
Marc LeBrun and M. F. Hasler, Feb 22 2023
STATUS
approved