OFFSET
1,3
COMMENTS
EXAMPLE
Last 10 members of this finite sequence:
a(45)=6543210
a(46)=7654321
a(47)=8765432
a(48)=9876543
a(49)=76543210
a(50)=87654321
a(51)=98765432
a(52)=876543210
a(53)=987654321
a(54)=9876543210
MATHEMATICA
fQ[n_]:=Module[{id=IntegerDigits[n]}, n<10 || Union[Differences[id]]=={-1}]; Select[Range[0, 100000], fQ] (* Vladimir Joseph Stephan Orlovsky, Dec 29 2010 *)
Sort[Flatten[With[{t=Range[9, 0, -1]}, Table[FromDigits/@Partition[t, n, 1], {n, 10}]]]] (* Harvey P. Dale, Oct 31 2013 *)
CROSSREFS
KEYWORD
base,easy,fini,nonn
AUTHOR
Omar E. Pol, Mar 19 2008
EXTENSIONS
Examples corrected by Omar E. Pol, Dec 06 2008
STATUS
approved