Search: id:A005341
Results 1-1 of 1 results found.

%I A005341 M0321
%S A005341 1,2,2,4,6,6,8,10,14,20,26,34,46,62,78,102,134,176,226,302,408,528,678,
%T A005341 904,1182,1540,2012,2606,3410,4462,5808,7586,9898,12884,16774,21890,28528,
               37158,
%U A005341 48410,63138,82350,107312,139984,182376,237746,310036,403966,526646,686646
%N A005341 Length of n-th term in Look and Say sequence A005150.
%D A005341 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 
               Academic Press, 1995 (includes this sequence).
%D A005341 J. H. Conway, The weird and wonderful chemistry of audioactive decay, 
               in T. M. Cover and Gopinath, eds., Open Problems in Communication 
               and Communications, Springer, NY 1987, pp. 173-188.
%D A005341 S. R. Finch, Mathematical Constants, Cambridge, 2003, pp. 452-455.
%H A005341 S. R. Finch, <a href="http://algo.inria.fr/bsolve/constant/cnwy/cnwy.html">
               Conway's Constant</a>
%H A005341 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               LookandSaySequence.html">Link to a section of The World of Mathematics.</
               a>
%F A005341 Satisfies a recurrence of order 71.
%t A005341 RunLengthEncode[ x_List ] := (Through[ {First, Length}[ #1 ] ] &) /@ 
               Split[ x ]; LookAndSay[ n_, d_:1 ] := NestList[ Flatten[ Reverse 
               /@ RunLengthEncode[ # ] ] &, {d}, n - 1 ]; F[ n_ ] := LookAndSay[ 
               n, 1 ][ [ n ] ]; Table[ Length[ F[ n ] ], {n, 1, 51} ]
%Y A005341 Sequence in context: A098214 A109832 A039731 this_sequence A137268 A008130 
               A055388
%Y A005341 Adjacent sequences: A005338 A005339 A005340 this_sequence A005342 A005343 
               A005344
%K A005341 nonn,base,easy,nice
%O A005341 1,2
%A A005341 Jeffrey Shallit
%E A005341 More terms from Mike Keith (Domnei(AT)aol.com)

Search completed in 0.001 seconds