|
|
A290588
|
|
Number of irredundant sets in the n-helm graph.
|
|
0
|
|
|
5, 13, 35, 113, 355, 1105, 3435, 10625, 32723, 100433, 307323, 937985, 2856547, 8682897, 26349835, 79850241, 241679859, 730700881, 2207155867, 6661493633, 20090908803, 60555714705, 182419600683, 549259559297, 1653098625555, 4973441442385, 14957936920763
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Extended to a(1)-a(2) using the recurrence.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 6*a(n-1) - 10*a(n-2) + 4*a(n-3) - 5*a(n-4) + 6*a(n-5).
G.f.: (x (-5 + 17 x - 7 x^2 - 13 x^3))/(-1 + 6 x - 10 x^2 + 4 x^3 - 5 x^4 + 6 x^5).
|
|
MATHEMATICA
|
Table[1 + 2 3^n - RootSum[-2 - # - 2 #^2 + #^3 &, #^n &], {n, 20}]
LinearRecurrence[{6, -10, 4, -5, 6}, {5, 13, 35, 113, 355}, 20]
CoefficientList[Series[(-5 + 17 x - 7 x^2 - 13 x^3)/(-1 + 6 x - 10 x^2 + 4 x^3 - 5 x^4 + 6 x^5), {x, 0, 20}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|