|
|
A284700
|
|
Number of edge covers in the n-antiprism graph.
|
|
5
|
|
|
4, 13, 205, 2902, 41413, 590758, 8427370, 120219259, 1714968133, 24464596729, 348995693650, 4978540849669, 71020558255594, 1013132129923498, 14452670295681235, 206172198577335937, 2941115696724530533, 41956003773586931038, 598516493115066264085
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Sequence extrapolated to n=0 using recurrence. - Andrew Howroyd, May 15 2017
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 13*a(n-1)+18*a(n-2)+a(n-3)-4*a(n-4) for n>=4.
G.f.: (-x^3-36*x^2-39*x+4)/(4*x^4-x^3-18*x^2-13*x+1).
(End)
|
|
MATHEMATICA
|
Table[RootSum[4 - # - 18 #^2 - 13 #^3 + #^4 &, #^n &], {n, 0, 20}] (* Eric W. Weisstein, May 17 2017 *)
LinearRecurrence[{13, 18, 1, -4}, {13, 205, 2902, 41413}, {0, 20}] (* Eric W. Weisstein, May 17 2017 *)
CoefficientList[Series[(-x^3-36*x^2-39*x+4)/(4*x^4-x^3-18*x^2-13*x+1), {x, 0, 50}], x]
|
|
PROG
|
(PARI)
Vec((-x^3-36*x^2-39*x+4)/(4*x^4-x^3-18*x^2-13*x+1)+O(x^20)) \\ Andrew Howroyd, May 15 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|