cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A164547 a(n) = 10*a(n-1) - 17*a(n-2) for n > 1; a(0) = 1, a(1) = 11.

Original entry on oeis.org

1, 11, 93, 743, 5849, 45859, 359157, 2811967, 22014001, 172336571, 1349127693, 10561555223, 82680381449, 647257375699, 5067007272357, 39666697336687, 310527849736801, 2430944642644331, 19030472980917693, 148978670884223303
Offset: 0

Views

Author

Al Hakanson (hawkuu(AT)gmail.com), Aug 15 2009

Keywords

Comments

Binomial transform of A164546.
Fifth binomial transform of A164640.

Links

Crossrefs

Cf. A164546, A164640.

Programs

  • Magma
    Z:=PolynomialRing(Integers()); N:=NumberField(x^2-2); S:=[ ((2+3*r)*(5+2*r)^n+(2-3*r)*(5-2*r)^n)/4: n in [0..19] ]; [ Integers()!S[j]: j in [1..#S] ]; // Klaus Brockhaus, Aug 19 2009
  • Mathematica
    LinearRecurrence[{10,-17},{1,11},30] (* Harvey P. Dale, Jun 04 2012 *)
  • Sage
    [(17)^((n-1)/2)*(sqrt(17)*chebyshev_U(n, 5/sqrt(17)) + chebyshev_U(n-1, 5/sqrt(17))) for n in (0..30)] # G. C. Greubel, Jul 17 2021

Formula

a(n) = 10*a(n-1) - 17*a(n-2) for n > 1; a(0) = 1, a(1) = 11.
a(n) = ((2+3*sqrt(2))*(5+2*sqrt(2))^n + (2-3*sqrt(2))*(5-2*sqrt(2))^n)/4.
G.f.: (1+x)/(1 - 10*x + 17*x^2).
a(n) = (17)^((n-1)/2)*(sqrt(17)*ChebyshevU(n, 5/sqrt(17)) + ChebyshevU(n-1, 5/sqrt(17))). - G. C. Greubel, Jul 17 2021

Extensions

Edited and extended beyond a(5) by Klaus Brockhaus, Aug 19 2009

A154346 a(n) = 12*a(n-1) - 28*a(n-2) for n > 1, with a(0)=1, a(1)=12.

Original entry on oeis.org

1, 12, 116, 1056, 9424, 83520, 738368, 6521856, 57587968, 508443648, 4488860672, 39629905920, 349870772224, 3088811900928, 27269361188864, 240745601040384, 2125405099196416, 18763984361226240, 165656469557215232
Offset: 0

Views

Author

Al Hakanson (hawkuu(AT)gmail.com), Jan 07 2009

Keywords

Comments

Binomial transform of A164547, second binomial transform of A164546, third binomial transform of A038761, fourth binomial transform of A164545, fifth binomial transform of A164544, sixth binomial transform of A164640.
Lim_{n -> infinity} a(n)/a(n-1) = 6 + 2*sqrt(2) = 8.8284271247....

Links

Crossrefs

Cf. A002193 (decimal expansion of sqrt(2)), A164547, A164546, A038761, A164545, A164544, A164640.

Programs

  • Magma
    Z:=PolynomialRing(Integers()); N:=NumberField(x^2-2); S:=[ ((6+2*r)^n-(6-2*r)^n)/(4*r): n in [1..19] ]; [ Integers()!S[j]: j in [1..#S] ]; // Klaus Brockhaus, Jan 12 2009
  • Mathematica
    Join[{a=1,b=12},Table[c=12*b-28*a;a=b;b=c,{n,60}]] (* Vladimir Joseph Stephan Orlovsky, Jan 31 2011 *)
LinearRecurrence[{12,-28},{1,12},20] (* Harvey P. Dale, May 23 2012 *)
Rest@ CoefficientList[Series[x/(1 - 12 x + 28 x^2), {x, 0, 19}], x] (* Michael De Vlieger, Sep 13 2016 *)
  • PARI
    a(n)=([0,1; -28,12]^(n-1)*[1;12])[1,1] \\ Charles R Greathouse IV, Sep 13 2016
  • Sage
    [lucas_number1(n,12,28) for n in range(1, 20)] # Zerinvary Lajos, Apr 27 2009

Formula

a(n) = 12*a(n-1) - 28*a(n-2) for n > 1. - Philippe Deléham, Jan 12 2009
a(n) = ( (6 + 2*sqrt(2))^n - (6 - 2*sqrt(2))^n )/(4*sqrt(2)).
G.f.: x/(1 - 12*x + 28*x^2). - Klaus Brockhaus, Jan 12 2009, corrected Oct 08 2009
E.g.f.: (1/(2*sqrt(2)))*exp(6*x)*sinh(2*sqrt(2)*x). - G. C. Greubel, Sep 13 2016
a(n) =2^(n-1)*A081179(n). - R. J. Mathar, Feb 04 2021

Extensions

Extended beyond a(7) by Klaus Brockhaus, Jan 12 2009
Edited by Klaus Brockhaus, Oct 08 2009
Offset corrected. - R. J. Mathar, Jun 19 2021

A322129 Digital roots of A057084.

Original entry on oeis.org

1, 8, 2, 6, 5, 1, 4, 6, 7, 8, 8, 9, 8, 1, 7, 3, 4, 8, 5, 3, 2, 1, 1, 9, 1, 8, 2, 6, 5, 1, 4, 6, 7, 8, 8, 9, 8, 1, 7, 3, 4, 8, 5, 3, 2, 1, 1, 9, 1, 8, 2, 6, 5, 1, 4, 6, 7, 8, 8, 9, 8, 1, 7, 3, 4, 8, 5, 3, 2, 1, 1
Offset: 1

Views

Author

Ondrej Janicko, Nov 27 2018

Keywords

Comments

Periodic with period 24. The cycle is in reverse order to that of the digital roots of the Fibonacci numbers (A030132).

Links

Crossrefs

Cf. A010888 (digital root), A057084, A030132 (order of cycle digits reversed), A000045, A015454, A041025, A114479, A164546.

Programs

  • GAP
    A057084:=[1,8];; for n in [3..80] do A057084[n]:=8*(A057084[n-1]-A057084[n-2]);; od; a:=List(A057084,i->1+(i-1) mod 9); # Muniru A Asiru, Nov 29 2018
  • Mathematica
    digRoot[n_]:=FixedPoint[Total[IntegerDigits[#, 10]] &, n] ; digRoot/@LinearRecurrence[{8, -8}, {1, 8}, 100]  (* Amiram Eldar, Nov 29 2018 *)

Formula

a(n) = A010888(A041025(n)) for n > 0.
a(n) = A010888(A057084(n)) for n > 0.
a(n) = A010888(A015454(n+3)) for n > 0.
a(n) = A010888(A114479(n+5)) for n > 0.
a(n) = A010888(A164546(n+3)) for n > 0.
a(n) = A030132(24 - (n mod 24)). - Filip Zaludek, Dec 09 2018
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.