The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A036059 The summarize Fibonacci sequence: summarize the previous two terms!. 18
 1, 1, 21, 1221, 3231, 233231, 533221, 15534221, 3514334231, 3534533241, 3544832231, 183544733221, 28172544634231, 2827162554535241, 2827265554337241, 2837267544338231, 3847264544637221, 3847362564636221 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 COMMENTS After the 23rd term the sequence goes into a cycle of 16 terms. LINKS Reinhard Zumkeller, Table of n, a(n) for n = 0..181 10 periods. EXAMPLE a(20) = 3837564524538221; a(21) = 4837265534637221; a(22+16*k) = 3837365544636221, k >= 0; a(36) = a(20+16) = 3837265554834221 <> a(20); a(37) = a(21+16) = 3837266544735221 <> a(21); a(38) = a(22+16) = 3837365544636221 = a(22). - Reinhard Zumkeller, Aug 10 2014 MATHEMATICA a[0] = a[1] = 1; a[n_] := a[n] = FromDigits @ Flatten @ Reverse @ Select[ Transpose @ { DigitCount[a[n-1]] + DigitCount[a[n-2]], Append[ Range[9], 0]}, #[[1]] > 0&]; Table[a[n], {n, 0, 18}] (* Jean-François Alcover, Dec 30 2017 *) PROG (Haskell) import Data.List (sort, group) a036059 n = a036059_list !! n a036059_list = map (read . concatMap show) fss :: [Integer] where    fss = [1] : [1] : zipWith h (tail fss) fss where          h vs ws = concatMap (\us -> [length us, head us]) \$                    group \$ reverse \$ sort \$ vs ++ ws -- Reinhard Zumkeller, Aug 10 2014 CROSSREFS Cf. A036058, A036066. Sequence in context: A086875 A012211 A297071 * A036519 A219408 A250061 Adjacent sequences:  A036056 A036057 A036058 * A036060 A036061 A036062 KEYWORD nonn,base,nice,easy AUTHOR 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 6 12:19 EDT 2020. Contains 333273 sequences. (Running on oeis4.)