login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 15 15:14 EDT 2019. Contains 328030 sequences. (Running on oeis4.)