OFFSET
1,2
COMMENTS
2013 is the fourth odd term in this sequence: Up to and including the 5 digit terms, odd terms must end in 1 or 3.
Due to the fact that 0 is not allowed as initial digit, this sequence is quite different from A030299, the analog with digits (1,...,m) instead of (0,...,m).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) map(L -> add(L[i]*10^(n-i), i=1..n), select(L -> L[1] <> 0, combinat:-permute([$0..n-1]))) end proc:
f(1):= [0]:
seq(op(f(n)), n=1..5); # Robert Israel, Jan 09 2025
PROG
(PARI) n_digit_terms(n)={my(a=[], p=vector(n, i, 10^(n-i))~); for(i=(n-1)!, n!-(n>1), a=concat(a, numtoperm(n, i)%n*p)); vecsort(a)} \\ - M. F. Hasler, Jan 08 2013
CROSSREFS
KEYWORD
nonn,base,easy,fini
AUTHOR
M. F. Hasler, Jan 08 2013
STATUS
approved
