This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A172196 A q-form based product triangular sequence:q=2;c(n,q)=Product[1 - q^i, {i, 1, n}]; t(n,m,q)=1 + Abs[c(n, q) - c(m, q)]*Abs[c(n, q) - c(n - m, q)] 0
 1, 1, 1, 1, 17, 1, 1, 481, 481, 1, 1, 106177, 97345, 106177, 1, 1, 98421121, 95179393, 95179393, 98421121, 1, 1, 384472892161, 378269256961, 378490726657, 378269256961, 384472892161, 1, 1, 6152325140989441, 6103497476160001 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,5 COMMENTS Row sums are: {1, 2, 19, 964, 309701, 387201030, 1903975024903, 36720211532497928, 2781595663780054625289, 829577145112419282515435530, 976434509539483869421893849108491} LINKS FORMULA q=2; c(n,q)=Product[1 - q^i, {i, 1, n}]; t(n,m,q)=1 + Abs[c(n, q) - c(m, q)]*Abs[c(n, q) - c(n - m, q)] EXAMPLE {1}, {1, 1}, {1, 17, 1}, {1, 481, 481, 1}, {1, 106177, 97345, 106177, 1}, {1, 98421121, 95179393, 95179393, 98421121, 1}, {1, 384472892161, 378269256961, 378490726657, 378269256961, 384472892161, 1}, {1, 6152325140989441, 6103497476160001, 6104283149099521, 6104283149099521, 6103497476160001, 6152325140989441, 1}, {1, 398486104502198307841, 396917261491397391361, 396929713103923184641, 396929505585016857601, 396929713103923184641, 396917261491397391361, 398486104502198307841, 1}, {1, 103849463689095182481561601, 103645837289745522254407681, 103646638968238943190190081, 103646632609129993331558401, 103646632609129993331558401, 103646638968238943190190081, 103645837289745522254407681, 103849463689095182481561601, 1}, {1, 108575237383741823092231867084801, 108468999382387826615775448780801, 108469207692194652954214206935041, 108469206872073804836983867084801, 108469206878687654423483069337601, 108469206872073804836983867084801, 108469207692194652954214206935041, 108468999382387826615775448780801, 108575237383741823092231867084801, 1} MATHEMATICA Clear[t, n, m, c, q]; c[n_, q_] = Product[1 - q^i, {i, 1, n}]; t[n_, m_, q_] = 1 + Abs[c[n, q] - c[m, q]]*Abs[c[n, q] - c[n - m, q]]; Table[Table[Table[t[n, m, q], {m, 0, n}], {n, 0, 10}], {q, 2, 12}]; Table[Flatten[Table[Table[t[n, m, q], {m, 0, n}], {n, 0, 10}]], {q, 2, 12}] CROSSREFS Sequence in context: A022180 A156581 A015143 * A056110 A040296 A040297 Adjacent sequences:  A172193 A172194 A172195 * A172197 A172198 A172199 KEYWORD nonn,tabl,uned AUTHOR Roger L. Bagula, Jan 29 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 October 15 15:14 EDT 2019. Contains 328030 sequences. (Running on oeis4.)