%I A084845
%S A084845 1,5,33,305,3640,53353,927843,18674305,426938895,10928351501,
%T A084845 309601751184,9616792908241,324971855514293,11868363584907985,
%U A084845 465823816409224245,19553538801258341377,874091571490181406680
%N A084845 Numerators of the continued fraction n+1/(n+1/...) [n times].
%C A084845 The n-th term of the Lucas sequence U(n,-1). The denominator is the (n-1)-th 
               term. Adjacent terms of the sequence U(n,-1) are relatively prime. 
               - T. D. Noe (noe(AT)sspectra.com), Aug 19 2004
%H A084845 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               LucasSequence.html">Lucas Sequence</a>
%e A084845 a(4)=305 since 4+1/(4+1/(4+1/4))=305/72
%p A084845 with(combinat, fibonacci):seq(fibonacci(i+1,i), i=1..17); - Zerinvary 
               Lajos (zerinvarylajos(AT)yahoo.com), Dec 01 2006
%t A084845 myList[n_] := Module[{ex = {n}}, Do[ex = {ex, n}, {n - 1}]; Flatten[ex]] 
               Table[Numerator[FromContinuedFraction[myList[n]]], {n, 1, 20}]
%t A084845 Table[s=n; Do[s=n+1/s, {n-1}]; Numerator[s], {n, 20}] (T. D. Noe)
%Y A084845 A084844 gives Denominators.
%Y A084845 Cf. A097690, A097691.
%Y A084845 Sequence in context: A120733 A144792 A001828 this_sequence A098460 A087618 
               A134152
%Y A084845 Adjacent sequences: A084842 A084843 A084844 this_sequence A084846 A084847 
               A084848
%K A084845 frac,nonn
%O A084845 1,2
%A A084845 Hollie L. Buchanan II (hb2math(AT)hotmail.com), Jun 08 2003