1,3

A043537(a(n)) = A043537(a(n)+1).

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

(Haskell)

a119797 n = a119797_list !! (n-1)

a119797_list = f [0..] a043537_list where

f (u:us) (v:vs@(v':_)) | v /= v' = f us vs

| otherwise = u : f us vs

-- Reinhard Zumkeller, Jan 04 2012

Cf. A119798, A119799.

Sequence in context: A118600 A080543 A285916 * A032972 A210585 A240082

Adjacent sequences: A119794 A119795 A119796 * A119798 A119799 A119800

nonn,base

Reinhard Zumkeller, May 25 2006

Offset fixed by Reinhard Zumkeller, Jan 04 2012

approved