|
|
A053404
|
|
Expansion of 1/((1+3*x)*(1-4*x)).
|
|
25
|
|
|
1, 1, 13, 25, 181, 481, 2653, 8425, 40261, 141361, 624493, 2320825, 9814741, 37664641, 155441533, 607417225, 2472715621, 9761722321, 39434309773, 156574977625, 629786694901, 2508686426401, 10066126765213, 40170363882025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
The compositions of n in which each natural number is colored by one of p different colors are called p-colored compositions of n. For n>=2, 13*a(n-2) equals the number of 13-colored compositions of n with all parts >=2, such that no adjacent parts have the same color. - Milan Janjic, Nov 26 2011
|
|
REFERENCES
|
A. H. Beiler, Recreations in the Theory of Numbers, Dover, N.Y., 1964, pp. 194-196.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = ((4^(n+1))-(-3)^(n+1))/7.
a(n) = a(n-1) + 12*a(n-2), n > 1; a(0)=1, a(1)=1.
Convolution of 4^n and (-3)^n.
G.f.: 1/((1+3x)(1-4x)); a(n) = Sum_{k=0..n, 4^k*(-3)^(n-k)} = Sum_{k=0..n, (-3)^k*4^(n-k)}. (End)
a(n) = (sum_{1<=k<=n+1, k odd} C(n+1,k)*7^(k-1))/2^n. - Vladimir Shevelev, Feb 05 2014
|
|
MATHEMATICA
|
CoefficientList[Series[1/((1 + 3 x) (1 - 4 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Feb 06 2014 *)
|
|
PROG
|
(Sage) [lucas_number1(n, 1, -12) for n in range(1, 25)] # Zerinvary Lajos, Apr 22 2009
(Magma) [((4^(n+1)) - (-3)^(n+1))/7: n in [0..30]]; // G. C. Greubel, Jan 16 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|