[go: up one dir, main page]

login
Revision History for A103998 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Number of dimer tilings of a 4 x 2n Moebius strip.
(history; published version)
#12 by Ray Chandler at Fri Jul 31 17:27:07 EDT 2015
STATUS

editing

approved

#11 by Ray Chandler at Fri Jul 31 17:27:05 EDT 2015
LINKS

<a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (11, -25, 11, -1).

STATUS

approved

editing

#10 by Michel Marcus at Sat Feb 15 11:18:34 EST 2014
STATUS

proposed

approved

#9 by Jon E. Schoenfield at Sat Feb 15 10:15:28 EST 2014
STATUS

editing

proposed

#8 by Jon E. Schoenfield at Sat Feb 15 10:15:26 EST 2014
FORMULA

a(0)=1, a(1)=11, a(2)=71, a(3)=539, a(4)=4271, a(n)=11*a(n-1)-25*a(n-2)+ 11*a(n-3)-a(n-4) [From . - _Harvey P. Dale, June _, Jun 15 2011]

MATHEMATICA

Join[{1}, LinearRecurrence[{11, -25, 11, -1}, {11, 71, 539, 4271}, 40]] (* or *) CoefficientList[ Series[ (1-25x^2+22x^3-3x^4)/ (1-11x+ 25x^2- 11x^3+x^4), {x, 0, 40}], x] (* Harvey P. Dale, June Jun 15 2011 *)

AUTHOR

_Ralf Stephan, _, Feb 26 2005

STATUS

approved

editing

#7 by Charles R Greathouse IV at Thu Nov 21 12:48:39 EST 2013
MATHEMATICA

Join[{1}, LinearRecurrence[{11, -25, 11, -1}, {11, 71, 539, 4271}, 40]] (* or *) CoefficientList[ Series[ (1-25x^2+22x^3-3x^4)/ (1-11x+ 25x^2- 11x^3+x^4), {x, 0, 40}], x] (* From _Harvey P. Dale, _, June 15 2011 *)

Discussion
Thu Nov 21
12:48
OEIS Server: https://oeis.org/edit/global/2062
#6 by T. D. Noe at Wed Jun 15 14:54:36 EDT 2011
STATUS

reviewed

approved

#5 by Harvey P. Dale at Wed Jun 15 14:34:04 EDT 2011
STATUS

proposed

reviewed

#4 by Harvey P. Dale at Wed Jun 15 14:33:29 EDT 2011
MATHEMATICA

Join[{1}, LinearRecurrence[{11, -25, 11, -1}, {11, 71, 539, 4271}, 40]] (* or *) CoefficientList[ Series[ (1-25x^2+22x^3-3x^4)/ (1-11x+ 25x^2- 11x^3+x^4), {x, 0, 40}], x] (* From Harvey P. Dale, June 15 2011 *)

#3 by Harvey P. Dale at Wed Jun 15 14:32:55 EDT 2011
MATHEMATICA

Join[{1}, LinearRecurrence[{11, -25, 11, -1}, {11, 71, 539, 4271}, 40]] (* or *) CoefficientList[ Series[ (1-25x^2+22x^3-3x^4)/ (1-11x+25x^2-11x^3+x^4), {x, 0, 40}], x] (* From Harvey P. Dale, June 15 2011 *)