# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a073834
Showing 1-1 of 1

%I A073834 #22 May 06 2022 07:37:09
%S A073834 1,1,2,10,290,272890,264588959090,268440386798659418988490,
%T A073834 295105036840595214385430531020664149472669868290,
%U A073834 377908709746050392481071609609580527436122569261424131112048023467330784739529329885668846964890
%N A073834 Denominators of b(n) where b(1) = 1, b(i) = b(i-1) + 1/b(i-1).
%C A073834 a(n) is also the denominator of the fractional chromatic number of the Mycielski graph M_n - _Eric W. Weisstein_, Mar 05 2011
%D A073834 H. L. Montgomery, Ten Lectures on the Interface Between Analytic Number Theory and Harmonic Analysis, Amer. Math. Soc., 1996, p. 187.
%D A073834 D. J. Newman, A Problem Seminar, Springer; see Problem #60.
%D A073834 J. H. Silverman, The arithmetic of dynamical systems, Springer, 2007, see p. 113 Table 3.1
%H A073834 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FractionalChromaticNumber.html">Fractional Chromatic Number</a>
%H A073834 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MycielskiGraph.html">Mycielski Graph</a>
%t A073834 f[n_]:=n+1/n; Prepend[Denominator[NestList[f,2,9]],1] (* _Vladimir Joseph Stephan Orlovsky_, Nov 19 2010 *)
%t A073834 Denominator[NestList[# + 1/# &, 1, 10]] (* _Eric W. Weisstein_, Mar 05 2011 *)
%o A073834 (PARI) {a(n) = local(x, y); if( n<1, 0, if( n<3, n, x = a(n-2)^2; y = a(n-1); y*y + x * (y - x)))} /* _Michael Somos_, Mar 05 2012 */
%Y A073834 See A073833 for numerators.
%K A073834 frac,nonn
%O A073834 1,3
%A A073834 _Alex Fink_, Aug 12 2002

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE