login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A036103 A look-and-say sequence: each term summarizes the previous two terms. 1
0, 1, 1110, 4110, 145120, 1524124120, 2534425120, 354413624120, 16355433523120, 26454463424120, 36456453523120, 46457443522120, 1736556443522120, 2736556433623120, 2756553463623120, 2766552473622120 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

A look-and-say sequence. a(3) says 4 ones, 1 zero, which is the count of ones and zeros in the two previous terms. a(4) says 1 four, 5 ones, 2 zeros.

From the 28th term the sequence gets into a cycle of 117.

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..611 = 5 periods

Index to sequences related to say what you see

EXAMPLE

a(26) = 39283736554483723130;

a(27) = 39384726554493622120 = first term of first period;

a(28) = 39383736455493622120;

a(143) = 39283746553473823130 = last term of first period != a(26);

a(144) = 39384726554493622120 = first term of second period = a(27);

a(145) = 39383736455493622120 = a(28).

MATHEMATICA

a[0] = 0; a[1] = 1; a[n_] := a[n] = Reverse /@ (Join[a[n-2] // IntegerDigits, a[n-1] // IntegerDigits] // Tally // SortBy[#, First]& // Reverse) // Flatten // FromDigits;

Array[a, 16, 0] (* Jean-Fran├žois Alcover, Jul 13 2016 *)

PROG

(Haskell)

import Data.List (sort, group); import Data.Function (on)

a036103 n = a036103_list !! n

a036103_list = 0 : 1 : map (read . concatMap say . group . reverse . sort)

               (zipWith ((++) `on` show) a036103_list $ tail a036103_list)

               where say w = (show $ length w) ++ [head w]

-- Reinhard Zumkeller, Oct 05 2015

CROSSREFS

Cf. A036059.

Cf. A036106.

Sequence in context: A336172 A252010 A036105 * A147589 A287283 A277927

Adjacent sequences:  A036100 A036101 A036102 * A036104 A036105 A036106

KEYWORD

base,easy,nice,nonn

AUTHOR

Floor van Lamoen

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 3 18:06 EDT 2022. Contains 355055 sequences. (Running on oeis4.)