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-2 of 2 results.

A189789 Number of ways to place 8 nonattacking bishops on an n x n toroidal board.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 147456, 3265920, 129024000, 1097712000, 12939264000, 66784798080, 436483031040, 1669619952000, 7629571031040, 23828156352000, 85476013572096, 230333593351680, 693478195200000, 1669577821632000
Offset: 1

Views

Author

Vaclav Kotesovec, Apr 27 2011

Keywords

Crossrefs

Programs

  • Mathematica
    (* Number of ways to place k nonattacking bishops on an n x n toroidal board *)
    tbishops[k_,n_]:=If[EvenQ[n],2^k*k!*Sum[Binomial[n/2,i]^2*Binomial[n/2,k-i]^2/Binomial[k,i],{i,0,k}],k!*Binomial[n,k]^2];
    Table[tbishops[8,n],{n,1,20}] (* using k=8 for this sequence *)

Formula

a(n) = (1/80640) * (n-6)^2 * (n-4)^2 * (n-2)^2 * n^2 * (2*n^8 - 64*n^7 + 884*n^6 - 7048*n^5 + 37382*n^4 - 147904*n^3 + 468540*n^2 - 1108800*n + 1422225 + (28*n^6 - 840*n^5 + 10906*n^4 - 80640*n^3 + 370468*n^2 - 1034880*n + 1400175) * (-1)^n)
G.f.: 1152x^8*(35x^23 + 21178x^22 + 27889x^21 + 2133348x^20 + 3081175x^19 + 51948910x^18 + 72476645x^17 + 469213640x^16 + 538879520x^15 + 1803221880x^14 + 1580004720x^13 + 3146148264x^12 + 2014875632x^11 + 2544618104x^10 + 1144092320x^9 + 933224520x^8 + 278242005x^7 + 143723790x^6 + 25756935x^5 + 7854820x^4 + 693025x^3 + 104538x^2 + 2579x + 128) / ((1-x)^17*(x+1)^15)

A215943 Number of ways to place k non-attacking bishops on an n x n toroidal chessboard, summed over all k >= 0.

Original entry on oeis.org

2, 9, 34, 289, 1546, 19321, 130922, 2169729, 17572114, 364466281, 3405357682, 85143154849, 896324308634, 26309790300249, 306827170866106, 10366719612433921, 132240988644215842, 5064730099043043529, 69974827707903049154, 3000912883089564050721
Offset: 1

Views

Author

Vaclav Kotesovec, Aug 28 2012

Keywords

Comments

a(n) = A002720(n) if n is odd.

Crossrefs

Programs

  • Mathematica
    Table[Sum[If[EvenQ[n],2^k*k!*Sum[Binomial[n/2,i]^2*Binomial[n/2,k-i]^2/Binomial[k,i],{i,0,k}],Binomial[n,k]^2*k!],{k,0,n}],{n,1,25}]

Formula

Recurrence: a(n) = ((12*n^5 - 158*n^4 - (6*(-1)^n-706)*n^3 - (1193-41*(-1)^n)*n^2 - 8*(7*(-1)^n-72)*n - 22*(-1)^n-28)*a(n-2) + (-12*n^6 + 206*n^5 + 2*(7*(-1)^n-691)*n^4 + (4545-137*(-1)^n)*n^3 + (442*(-1)^n-7442)*n^2 + (5194-544*(-1)^n)*n + 198*(-1)^n-698)*(n-2)*a(n-4) + 2*(2*n-1)*(n^2-7*n+10)^2*(n-4)^4*a(n-6))/(2*(n-5)^2*(2*n-5)).
Showing 1-2 of 2 results.