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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A152972 A vector sequence with set row sum function: row(n)=-Product[3*k - 1, {k, 0, n}] and linear build up and decline function: f(n,m)=Floor[(m/n)*row(n)]. 0
1, 1, 1, 1, 8, 1, 1, 39, 39, 1, 1, 110, 658, 110, 1, 1, 1232, 4927, 4927, 1232, 1, 1, 17453, 34906, 104720, 34906, 17453, 1, 1, 299200, 598400, 1196799, 1196799, 598400, 299200, 1, 1, 6021400, 12042800, 18064200, 24085598, 18064200, 12042800 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

row sums -Product[3*k - 1, {k, 0, n}]:A008544

{1, 2, 10, 80, 880, 12320, 209440, 4188800, 96342400, 2504902400, 72642169600,

2324549427200, 81359229952000, 3091650738176000, 126757680265216000,

5577337931669504000, 262134882788466688000, 13106744139423334400000,

694657439389436723200000,...}

LINKS

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

FORMULA

row(n)=(2*n)!/n!: f(n,m)=Floor[(m/n)*row(n)].

EXAMPLE

{1},

{1, 1},

{1, 8, 1},

{1, 39, 39, 1},

{1, 110, 658, 110, 1},

{1, 1232, 4927, 4927, 1232, 1},

{1, 17453, 34906, 104720, 34906, 17453, 1},

{1, 299200, 598400, 1196799, 1196799, 598400, 299200, 1},

{1, 6021400, 12042800, 18064200, 24085598, 18064200, 12042800, 6021400, 1},

{1, 139161244, 278322488, 417483733, 417483734, 417483734, 417483733, 278322488, 139161244, 1},

{1, 3632108480, 7264216960, 10896325440, 14528433920, -2, 14528433920, 10896325440, 7264216960, 3632108480, 1}

MATHEMATICA

Clear[v, n, row, f]; row[n_] = -Product[3*k - 1, {k, 0, n}];

f[n_, m_] = Floor[(m/n)*row[n]/2]; v[0] = {1}; v[1] = {1, 1};

v[n_] := v[n] = If[Mod[n, 2] == 0, Join[{1}, Table[ f[n, m], {m, 1, Floor[ n/2] - 1}], {row[n] - 2*Sum[ f[n, m], {m, 1, Floor[n/2] - 1}] - 2}, Table[ f[n, m], {m, Floor[n/ 2] - 1, 1, -1}], { 1}],

Join[{1}, Table[ f[n, m], {m, 1, Floor[n/2] - 1}], {row[n]/2 - Sum[ f[n, m], { m, 1, Floor[n/2] - 1}] - 1, row[n]/ 2 - Sum[ f[n, m], {m, 1, Floor[ n/2] - 1}] - 1}, Table[ f[n, m], {m, Floor[n/ 2] - 1, 1, -1}], {1}]];

Table[FullSimplify[v[n]], {n, 0, 10}]; Flatten[%]

CROSSREFS

A008544, A142458, A142459

Sequence in context: A142175 A142597 A156137 * A166346 A157640 A142458

Adjacent sequences:  A152969 A152970 A152971 * A152973 A152974 A152975

KEYWORD

nonn,tabl

AUTHOR

Roger L. Bagula, Dec 16 2008

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 March 18 19:58 EDT 2019. Contains 321293 sequences. (Running on oeis4.)