login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A173049 A triangle of polynomial coefficients:q=3;p(x,n,q)=If[n == 0, 1, Product[x + q^i, {i, 1, n}] + Product[x*q^i + 1, {i, 1, n}]] 0
1, 4, 4, 28, 24, 28, 730, 390, 390, 730, 59050, 29280, 7020, 29280, 59050, 14348908, 7145292, 914760, 914760, 7145292, 14348908, 10460353204, 5223003240, 650485836, 49397040, 650485836, 5223003240, 10460353204, 22876792454962 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Row sums are:

{1, 8, 80, 2240, 183680, 44817920, 32717081600, 71584974540800,

469740602936729600, 9246374028206585446400, 545998386365598870609920000,...}.

LINKS

Table of n, a(n) for n=0..28.

FORMULA

q=3;

p(x,n,q)=If[n == 0, 1, Product[x + q^i, {i, 1, n}] + Product[x*q^i + 1, {i, 1, n}]]

EXAMPLE

{1},

{4, 4},

{28, 24, 28},

{730, 390, 390, 730},

{59050, 29280, 7020, 29280, 59050},

{14348908, 7145292, 914760, 914760, 7145292, 14348908},

{10460353204, 5223003240, 650485836, 49397040, 650485836, 5223003240, 10460353204},

{22876792454962, 11433166054158, 1427188022442, 55340738838, 55340738838, 1427188022442, 11433166054158, 22876792454962},

{150094635296999122, 75035879252281920, 9375196185919800, 360108133318080, 8965199691756, 360108133318080, 9375196185919800, 75035879252281920, 150094635296999122},

{2954312706550833698644, 1477081305957768379284, 184607021930620264560, 7097023989026400240, 88955675043980472, 88955675043980472, 7097023989026400240, 184607021930620264560, 1477081305957768379284, 2954312706550833698644},

{174449211009120179071170508, 87223128348206814118824504, 10902337119274290150769308, 419256747357452492954400, 5238342611663783986584, 43232458071374509392, 5238342611663783986584, 419256747357452492954400, 10902337119274290150769308, 87223128348206814118824504, 174449211009120179071170508}

MATHEMATICA

Clear[p, x, n, q];

p[x_, n_, q_] = If[n == 0, 1, Product[x + q^i, {i, 1, n}] + Product[x*q^i + 1, {i, 1, n}]];

Table[Table[CoefficientList[p[x, n, q], x], {n, 0, 10}], {q, 1, 10}];

Table[Flatten[Table[CoefficientList[p[x, n, q], x], {n, 0, 10}]], {q, 1, 10}]

CROSSREFS

Sequence in context: A078146 A066836 A227715 * A272040 A065237 A264586

Adjacent sequences:  A173046 A173047 A173048 * A173050 A173051 A173052

KEYWORD

nonn,tabl,uned

AUTHOR

Roger L. Bagula, Feb 08 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 7 02:48 EDT 2020. Contains 334836 sequences. (Running on oeis4.)