login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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; text; internal format)
OFFSET

0,3

COMMENTS

a(n) = A004186(a(n-1) + 1). - Reinhard Zumkeller, 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, Oct 31 2007

MATHEMATICA

NestList[FromDigits[Sort[IntegerDigits[#+1], Greater]]&, 0, 60] (* Harvey P. Dale, Sep 04 2011 *)

PROG

(Haskell)

a064222 n = a064222_list !! n

a064222_list = iterate (a004186 . (+ 1)) 0

-- Reinhard Zumkeller, Apr 11 2012

CROSSREFS

Cf. A004216.

Sequence in context: A132578 A101318 A130575 * A261294 A321474 A225805

Adjacent sequences:  A064219 A064220 A064221 * A064223 A064224 A064225

KEYWORD

nice,nonn,base,look

AUTHOR

Reinhard Zumkeller, Sep 21 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 16 00:11 EST 2018. Contains 317252 sequences. (Running on oeis4.)