|
| |
|
|
A064222
|
|
a(0) = 0; a(n) = DecimalDigitsSortedDecreasing(a(n - 1) + 1) for n > 0.
|
|
4
| |
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 21, 22, 32, 33, 43, 44, 54, 55, 65, 66, 76, 77, 87, 88, 98, 99, 100, 110, 111, 211, 221, 222, 322, 332, 333, 433, 443, 444, 544, 554, 555, 655, 665, 666, 766, 776, 777, 877, 887, 888, 988, 998, 999, 1000, 1100, 1110, 1111, 2111
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| a(n) = A004186(a(n-1) + 1). - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 31 2007
|
|
|
LINKS
| R. Zumkeller, Table of n, a(n) for n = 0..1000
|
|
|
FORMULA
| a(n+1) = (d+0^d)*10^floor(Log10(a(n)+1)) + (1-0^d)*floor(a(n)/10), where d = (a(n)+1) mod 10. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 31 2007
|
|
|
MATHEMATICA
| NestList[FromDigits[Sort[IntegerDigits[#+1], Greater]]&, 0, 60] (* From Harvey P. Dale, Sep 04 2011 *)
|
|
|
CROSSREFS
| Cf. A004216.
Sequence in context: A114802 A130575 A068637 * A004186 A034704 A023792
Adjacent sequences: A064219 A064220 A064221 * A064223 A064224 A064225
|
|
|
KEYWORD
| nice,nonn,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Sep 21 2001
|
| |
|
|
