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.

A175655 Eight bishops and one elephant on a 3 X 3 chessboard. G.f.: (1+x-5*x^2)/(1-3*x-x^2+6*x^3).

Original entry on oeis.org

1, 4, 8, 22, 50, 124, 290, 694, 1628, 3838, 8978, 21004, 48962, 114022, 265004, 615262, 1426658, 3305212, 7650722, 17697430, 40911740, 94528318, 218312114, 503994220, 1163124866, 2683496134, 6189647948, 14273690782
Offset: 0

Views

Author

Johannes W. Meijer, Aug 06 2010, Aug 10 2010

Keywords

Comments

a(n) represents the number of n-move routes of a fairy chess piece starting in the central square (m = 5) on a 3 X 3 chessboard. This fairy chess piece behaves like a bishop on the eight side and corner squares but on the central square the bishop turns into a raging elephant, see A175654.
For the central square the 512 elephants lead to 46 different elephant sequences, see the cross-references for examples.
The sequence above corresponds to 16 A[5] vectors with decimal values 71, 77, 101, 197, 263, 269, 293, 323, 326, 329, 332, 353, 356, 389, 449 and 452. These vectors lead for the side squares to A000079 and for the corner squares to A175654.

Links

Crossrefs

Cf. Elephant sequences central square [decimal value A[5]]: A000007 [0], A000012 [16], A000045 [1], A011782 [2], A000079 [3], A003945 [42], A099036 [11], A175656 [7], A105476 [69], A168604 [26], A045891 [19], A078057 [21], A151821 [170], A175657 [43], 4*A172481 [15; n>=-1], A175655 [71, this sequence], 4*A026597 [325; n>=-1], A033484 [58], A087447 [27], A175658 [23], A026150 [85], A175661 [171], A036563 [186], A098156 [59], A046717 [341], 2*A001792 [187; n>=1 with a(0)=1], A175659 [343].
Cf. A000244, A006130, A075118, A175654.

Programs

  • Magma
    I:=[1, 4, 8]; [n le 3 select I[n] else 3*Self(n-1)+Self(n-2)-6*Self(n-3): n in [1..30]]; // Vincenzo Librandi, Jul 21 2013
  • Maple
    with(LinearAlgebra): nmax:=27; m:=5; A[5]:= [0,0,1,0,0,0,1,1,1]: A:=Matrix([[0,0,0,0,1,0,0,0,1], [0,0,0,1,0,1,0,0,0], [0,0,0,0,1,0,1,0,0], [0,1,0,0,0,0,0,1,0], A[5], [0,1,0,0,0,0,0,1,0], [0,0,1,0,1,0,0,0,0], [0,0,0,1,0,1,0,0,0], [1,0,0,0,1,0,0,0,0]]): for n from 0 to nmax do B(n):=A^n: a(n):= add(B(n)[m,k],k=1..9): od: seq(a(n), n=0..nmax);
  • Mathematica
    CoefficientList[Series[(1 + x - 5 x^2) / (1 - 3 x - x^2 + 6 x^3), {x, 0, 40}], x] (* Vincenzo Librandi, Jul 21 2013 *)
LinearRecurrence[{3,1,-6},{1,4,8},40] (* Harvey P. Dale, Dec 25 2024 *)
  • PARI
    a(n)=([0,1,0; 0,0,1; -6,1,3]^n*[1;4;8])[1,1] \\ Charles R Greathouse IV, Oct 03 2016

Formula

G.f.: (1+x-5*x^2)/(1-3*x-x^2+6*x^3).
a(n) = 3*a(n-1) + a(n-2) - 6*a(n-3) with a(0)=1, a(1)=4 and a(2)=8.
a(n) = ((10+8*A)*A^(-n-1) + (10+8*B)*B^(-n-1))/13 - 2^n with A = (-1+sqrt(13))/6 and B = (-1-sqrt(13))/6.
Limit_{k->oo} a(n+k)/a(k) = (-1)^(n)*2*A000244(n)/(A075118(n)-A006130(n-1)*sqrt(13)).
E.g.f.: 2*exp(x/2)*(13*cosh(sqrt(13)*x/2) + 5*sqrt(13)*sinh(sqrt(13)*x/2))/13 - cosh(2*x) - sinh(2*x). - Stefano Spezia, Jan 31 2023

A074878 Row sums of triangle in A074829.

Original entry on oeis.org

1, 2, 6, 14, 32, 70, 150, 316, 658, 1358, 2784, 5678, 11534, 23356, 47178, 95110, 191440, 384854, 772902, 1550972, 3110306, 6234142, 12490176, 25015774, 50088862, 100270460, 200690970, 401624726, 803642288, 1607920198, 3216868854, 6435401788, 12873496114, 25751348846
Offset: 1

Views

Author

Joseph L. Pe, Sep 30 2002

Keywords

Comments

An elephant sequence, see A175654. For the corner squares 16 A[5] vectors, with decimal values between 43 and 424, lead to this sequence. For the central square these vectors lead to the companion sequence A175657. - Johannes W. Meijer, Aug 15 2010

Links

Crossrefs

Cf. A000045.

Programs

  • GAP
    List([1..40], n-> 3*2^(n-1) - 2*Fibonacci(n+1)); # G. C. Greubel, Jul 12 2019
  • Magma
    [3*2^(n-1) - 2*Fibonacci(n+1): n in [1..40]]; // G. C. Greubel, Jul 12 2019
  • Mathematica
    Table[3*2^(n-1) - 2*Fibonacci[n+1], {n, 1, 40}] (* G. C. Greubel, Jul 12 2019 *)
  • PARI
    vector(40, n, 3*2^(n-1) -2*fibonacci(n+1)) \\ G. C. Greubel, Jul 12 2019
  • Sage
    [3*2^(n-1) - 2*fibonacci(n+1) for n in (1..40)] # G. C. Greubel, Jul 12 2019

Formula

From Philippe Deléham, Sep 20 2006: (Start)
a(1)=1, a(2)=2, a(3)=6, a(n) = 3*a(n-1) - a(n-2) - 2*a(n-3) for n>3.
a(n) = 3*2^(n-1) - 2*F(n+1), F(n)=A000045(n).
G.f.: x*(1-x+x^2)/(1-3*x+x^2+2*x^3). (End)
a(1)=1, a(n) = 2*(a(n-1) + F(n-2)) where the Fibonacci number F(n-2) = A000045(n-2). - Anton Vrba (antonvrba(AT)yahoo.com), Feb 06 2007
a(n) = 3*2^n - 2*F(n+2), with offset 0 and F(n)=A000045(n). - Johannes W. Meijer, Aug 15 2010

Extensions

More terms from Philippe Deléham, Sep 20 2006
Terms a(23) onward added by G. C. Greubel, Jul 12 2019

A175661 Eight bishops and one elephant on a 3 X 3 chessboard: a(n) = 2^(n+2)-3*F(n+1), with F(n) = A000045(n).

Original entry on oeis.org

1, 5, 10, 23, 49, 104, 217, 449, 922, 1883, 3829, 7760, 15685, 31637, 63706, 128111, 257353, 516536, 1036033, 2076857, 4161466, 8335475, 16691245, 33415328, 66883789, 133853549, 267846202, 535917479, 1072199137, 2144987528
Offset: 0

Views

Author

Johannes W. Meijer, Aug 06 2010, Aug 10 2010

Keywords

Comments

The a(n) represent the number of n-move routes of a fairy chess piece starting in the central square (m = 5) on a 3 X 3 chessboard. This fairy chess piece behaves like a bishop on the eight side and corner squares but on the central square the bishop turns into a raging elephant, see A175654.
The sequence above corresponds to four A[5] vectors with decimal values 171, 174, 234 and 426. These vectors lead for the side squares to A000079 and for the corner squares to A175660 (a(n)=2^(n+2)-3*F(n+2)).

Links

Crossrefs

Cf. A175655 (central square), A000045.
Cf. A027973 (2^(n+2)+F(n)-F(n+4)), A099036 (2^n-F(n)), A167821 (2^(n+1)-2*F(n+2)), A175657 (3*2^n-2*F(n+1)), A175660 (2^(n+2)-3*F(n+2)), A179610 (convolution of (-4)^n and F(n+1)).

Programs

  • Magma
    I:=[1,5,10]; [n le 3 select I[n] else 3*Self(n-1)-Self(n-2)-2*Self(n-3): n in [1..35]]; // Vincenzo Librandi, Jul 21 2013
  • Maple
    nmax:=29; m:=5; A[5]:= [0,1,0,1,0,1,0,1,1]: A:=Matrix([[0,0,0,0,1,0,0,0,1], [0,0,0,1,0,1,0,0,0], [0,0,0,0,1,0,1,0,0], [0,1,0,0,0,0,0,1,0], A[5], [0,1,0,0,0,0,0,1,0], [0,0,1,0,1,0,0,0,0], [0,0,0,1,0,1,0,0,0], [1,0,0,0,1,0,0,0,0]]): for n from 0 to nmax do B(n):=A^n: a(n):= add(B(n)[m,k],k=1..9): od: seq(a(n), n=0..nmax);
  • Mathematica
    CoefficientList[Series[(1 + 2 x - 4 x^2) / (1 - 3 x + x^2 + 2 x^3), {x, 0, 40}], x] (* Vincenzo Librandi, Jul 21 2013 *)
LinearRecurrence[{3,-1,-2},{1,5,10},30] (* Harvey P. Dale, Apr 15 2019 *)

Formula

G.f.: (1 + 2*x - 4*x^2)/(1 - 3*x + x^2 + 2*x^3).
a(n) = 3*a(n-1) - a(n-2) - 2*a(n-3) with a(0)=1, a(1)=5 and a(2)=10.
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.