1,2
Peter J. C. Moses, Table of n, a(n) for n = 1..1000
a(n)=length(A098595(n))
The 7th term in A098595 = 111115111 so a(7)=9.
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 *)
Cf. A098595. A005150 for original Look and Say sequence.
Sequence in context: A116991 A103634 A255046 * A217536 A058267 A048259
Adjacent sequences: A098593 A098594 A098595 * A098597 A098598 A098599
easy,less,nonn,base
Mark Hudson (mrmarkhudson(AT)hotmail.com), Sep 17 2004
More terms from David Wasserman, Feb 26 2008
approved