login
A098596
Length of the n-th term in the Roman numeral Look and Say sequence A098595.
2
1, 2, 3, 4, 3, 6, 9, 8, 10, 15, 24, 23, 29, 36, 49, 54, 62, 75, 92, 105, 115, 138, 161, 180, 202, 231, 268, 297, 331, 376, 429, 472, 524, 593, 666, 731, 815, 912, 1017, 1120, 1244, 1383, 1536, 1689, 1873, 2074, 2291, 2526, 2790, 3083, 3398, 3749, 4131, 4552, 5023
OFFSET
1,2
LINKS
FORMULA
a(n) = length(A098595(n)).
EXAMPLE
The 7th term in A098595 = 111115111 so a(7)=9.
MATHEMATICA
p={4, 8, 10, 10, 10, 10, 6, 2, -4, -8, -10, -10, -6, -9, -13, -14, -4, 8, 21, 28, 27, 18, 13, 23, 39, 50, 49, 43, 34, 26, 27, 35, 43, 40, 29, 15, 7, 3, 4, 9, 14, 14, 9, 4, 1};
q={-1, -2, -3, -2, 1, 4, 5, 3, -1, -4, -3, 1, 5, 5, 1, -4, -6, -3, 2, 5, 4, 0, -4, -5, -3, 0, 2, 2, 1};
gf=Fold[x #1+#2&, 0, p]/Fold[x #1+#2&, 0, q];
CoefficientList[Series[gf, {x, 0, 99}], x] (* Peter J. C. Moses, Jun 21 2013 *)
CROSSREFS
Cf. A098595. A005150 for original Look and Say sequence.
Sequence in context: A330105 A103634 A255046 * A217536 A333618 A058267
KEYWORD
easy,less,nonn,base
AUTHOR
Mark Hudson (mrmarkhudson(AT)hotmail.com), Sep 17 2004
EXTENSIONS
More terms from David Wasserman, Feb 26 2008
STATUS
approved