OFFSET
0,54
REFERENCES
Julian Havil, Impossible?: Surprising Solutions to Counterintuitive Conundrums, Princeton University Press 2008, chapter 15, p. 176ff
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
PROG
(Haskell)
import Data.List (group)
a224782 n = a224782_list !! n
a224782_list = map (foldl h 0 . group . show) a000079_list where
h x zs@(z:_) = if z == '0' then max x $ length zs else x
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 30 2013
STATUS
approved