|
|
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
|
|
|
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;
|
|
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]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nice,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|