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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A172198 A q-form based product triangular sequence:q=3;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, 325, 1, 1, 178849, 178849, 1, 1, 1121470273, 1106493697, 1121470273, 1, 1, 65131063096321, 64859828626945, 64859828626945, 65131063096321, 1, 1, 34423599076368353281, 34376183545107456001, 34376383642256188417 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

Row sums are:

{1, 2, 327, 357700, 3349434245, 259981783446534, 171975948885207806983,

985775044264004540477767688, 49486309390027311684794921366323209,

21907966958329449995754873283658380770017290,

85933223490421173788627731935098309659305222246236171,...}

LINKS

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

FORMULA

q=3;

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

{1, 178849, 178849, 1},

{1, 1121470273, 1106493697, 1121470273, 1},

{1, 65131063096321, 64859828626945, 64859828626945, 65131063096321, 1},

{1, 34423599076368353281, 34376183545107456001, 34376383642256188417, 34376183545107456001, 34423599076368353281, 1},

{1, 164345972820689217363886081, 164270722833364659313950721, 164270826477948393561047041, 164270826477948393561047041, 164270722833364659313950721, 164345972820689217363886081, 1},

{1, 7070242636814107505803921053941761, 7069164527232402102869015830855681, 7069165020872356787292825709608961, 7069165020189578892863396177510401, 7069165020872356787292825709608961, 7069164527232402102869015830855681, 7070242636814107505803921053941761, 1},

{1, 2738600226570617128979968109300172796723201, 2738461070055039353749136141519872827064321, 2738461091274392140130202872128129546321921, 2738461091264676375018129518881015214899201, 2738461091264676375018129518881015214899201, 2738461091274392140130202872128129546321921, 2738461070055039353749136141519872827064321, 2738600226570617128979968109300172796723201, 1},

{1, 9548261712378179136510752747630538293064212466892801, 9548100003512000594710518784172787524135789002752001, 9548100011728914526547034585819628526290815961006081, 9548100011727661566200369560238909114222701864550401, 9548100011727662140690380579374582743878183655833601, 9548100011727661566200369560238909114222701864550401, 9548100011728914526547034585819628526290815961006081, 9548100003512000594710518784172787524135789002752001, 9548261712378179136510752747630538293064212466892801, 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: A202635 A013763 A013887 * A159976 A253433 A253440

Adjacent sequences:  A172195 A172196 A172197 * A172199 A172200 A172201

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 August 22 02:44 EDT 2019. Contains 326169 sequences. (Running on oeis4.)