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

 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 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: A320293 A146153 A339028 * 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.

Last modified April 21 17:04 EDT 2021. Contains 343156 sequences. (Running on oeis4.)