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!)
A173048 A triangle of polynomial coefficients:q=2;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, 3, 3, 9, 12, 9, 65, 70, 70, 65, 1025, 990, 560, 990, 1025, 32769, 31806, 11160, 11160, 31806, 32769, 2097153, 2064510, 671832, 178560, 671832, 2064510, 2097153, 268435457, 266338558, 87413592, 12850368, 12850368, 87413592, 266338558 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Row sums are:

{1, 6, 30, 270, 4590, 151470, 9845550, 1270075950, 326409519150,

167448083323950, 171634285407048750,...}.

LINKS

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

FORMULA

q=2;

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},

{3, 3},

{9, 12, 9},

{65, 70, 70, 65},

{1025, 990, 560, 990, 1025},

{32769, 31806, 11160, 11160, 31806, 32769},

{2097153, 2064510, 671832, 178560, 671832, 2064510, 2097153},

{268435457, 266338558, 87413592, 12850368, 12850368, 87413592, 266338558, 268435457},

{68719476737, 68451041790, 22638842200, 3189792960, 411211776, 3189792960, 22638842200, 68451041790, 68719476737},

{35184372088833, 35115652613118, 11659494378840, 1652679610560, 111842970624, 111842970624, 1652679610560, 11659494378840, 35115652613118, 35184372088833},

{36028797018963969, 35993612646877182, 11974437542118744, 1703952176836800, 112764343667712, 7157950119936, 112764343667712, 1703952176836800, 11974437542118744, 35993612646877182, 36028797018963969}

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: A124281 A320293 A146153 * A165992 A117153 A045810

Adjacent sequences:  A173045 A173046 A173047 * A173049 A173050 A173051

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 2 18:15 EDT 2020. Contains 334787 sequences. (Running on oeis4.)