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

Search: id:a006085
Showing 1-1 of 1

%I A006085 M1822 #29 May 17 2016 04:04:23
%S A006085 0,1,2,8,3,1,1,1,1,7,1,1,2,1,1,1,2,7,1,2,2,1,1,1,3,7,1,3,2,1,1,1,4,7,
%T A006085 1,4,2,1,1,1,5,7,1,5,2,1,1,1,6,7,1,6,2,1,1,1,7,7,1,7,2,1,1,1,8,7,1,8,
%U A006085 2,1,1,1,9,7,1,9,2,1,1,1,10,7,1,10,2,1,1,1,11,7,1,11,2,1,1,1,12,7,1,12,2,1
%N A006085 Continued fraction for e/4.
%D A006085 D. E. Knuth, The Art of Computer Programming. Addison-Wesley, Reading, MA, Vol. 2, p. 601.
%D A006085 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A006085 Harry J. Smith, <a href="/A006085/b006085.txt">Table of n, a(n) for n = 1..20000</a>
%H A006085 G. Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">Contfrac</a>
%H A006085 <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H A006085 <a href="/index/Rec#order_15">Index entries for linear recurrences with constant coefficients</a>, signature (1, -1, 1, -1, 1, -1, 1, 1, -1, 1, -1, 1, -1, 1, -1).
%F A006085 First seven terms are 0, 1, 2, 8, 3, 1, 1; then a(8k)=1, a(8k+1)=k, a(8k+2)=7, a(8k+3)=1, a(8k+4)=k, a(8k+5)=2, a(8k+6)=1, a(8k+7)=1. - _Benoit Cloitre_, Apr 08 2003
%F A006085 G.f.: x*(1+x+7*x^2-4*x^3+5*x^4-4*x^5+5*x^6-4*x^7+9*x^8-12*x^9-3*x^10-x^11-x^13-6*x^16+7*x^17+x^18) / ((1-x)^2*(1+x)*(1+x^2)^2*(1+x^4)^2). - _Colin Barker_, May 16 2016
%e A006085 0.679570457114761308840071867... = 0 + 1/(1 + 1/(2 + 1/(8 + 1/(3 + ...)))). - _Harry J. Smith_, May 10 2009
%t A006085 ContinuedFraction[E/4,120]  (* _Harvey P. Dale_, Apr 01 2011 *)
%t A006085 Join[{0, 1, 2, 8, 3},LinearRecurrence[{1, -1, 1, -1, 1, -1, 1, 1, -1, 1, -1, 1, -1, 1, -1},{1, 1, 1, 1, 7, 1, 1, 2, 1, 1, 1, 2, 7, 1, 2},97]] (* _Ray Chandler_, Sep 03 2015 *)
%o A006085 (PARI) { allocatemem(932245000); default(realprecision, 40000); x=contfrac(exp(1)/4); for (n=1, 20000, write("b006085.txt", n, " ", x[n])); } \\ _Harry J. Smith_, May 10 2009
%o A006085 (PARI) concat(0, Vec(x*(1+x+7*x^2-4*x^3+5*x^4-4*x^5+5*x^6-4*x^7+9*x^8-12*x^9-3*x^10-x^11-x^13-6*x^16+7*x^17+x^18)/((1-x)^2*(1+x)*(1+x^2)^2*(1+x^4)^2) + O(x^50))) \\ _Colin Barker_, May 16 2016
%Y A006085 Cf. A019741 = Decimal expansion. - _Harry J. Smith_, May 10 2009
%K A006085 nonn,cofr,easy
%O A006085 1,3
%A A006085 _N. J. A. Sloane_
%E A006085 More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 20 2003

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