A048321 Reading a(n) expansion from left to right, run lengths strictly decrease.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 440, 441, 442, 443, 444, 445, 446, 447, 448

Offset

1,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Prog

(Haskell)
import Data.List (group)
a048321 n = a048321_list !! (n-1)
a048321_list = filter f [0..] where
   f x = all (< 0) $ zipWith (-) (tail zs) zs
         where zs =  map length $ group $ show x
-- Reinhard Zumkeller, May 01 2015

Crossrefs

Cf. A037013, A043636, A043713, A044821, A044959.

Sequence in context: A030285 A283870 A175688 * A071267 A295010 A257054

Adjacent sequences: A048318 A048319 A048320 * A048322 A048323 A048324

Keyword

nonn,base

Author

Patrick De Geest, Feb 15 1999

Status

approved