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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A152969 Triangle read by rows: T(n,m)=floor[(m/n)*row(n)]. 0
1, 1, 1, 1, 6, 1, 1, 23, 23, 1, 1, 48, 286, 48, 1, 1, 384, 1535, 1535, 384, 1, 1, 3840, 7680, 23038, 7680, 3840, 1, 1, 46080, 92160, 184319, 184319, 92160, 46080, 1, 1, 645120, 1290240, 1935360, 2580478, 1935360, 1290240, 645120, 1, 1, 10321920, 20643840 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

Row sums: A000165

LINKS

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

EXAMPLE

{1},

{1, 1},

{1, 6, 1},

{1, 23, 23, 1},

{1, 48, 286, 48, 1},

{1, 384, 1535, 1535, 384, 1},

{1, 3840, 7680, 23038, 7680, 3840, 1},

{1, 46080, 92160, 184319, 184319, 92160, 46080, 1},

{1, 645120, 1290240, 1935360, 2580478, 1935360, 1290240, 645120, 1},

{1, 10321920, 20643840, 30965760, 30965759, 30965759, 30965760, 20643840, 10321920, 1},

{1, 185794560, 371589120, 557383680, 743178240, -2, 743178240, 557383680, 371589120, 185794560, 1}

MATHEMATICA

Clear[v, n, row, f]; row[n_] = 2^n*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[v[n], {n, 0, 10}]; Flatten[%]

CROSSREFS

Sequence in context: A176063 A155467 A152936 * A138076 A060187 A174527

Adjacent sequences:  A152966 A152967 A152968 * A152970 A152971 A152972

KEYWORD

nonn,tabl

AUTHOR

Roger L. Bagula, Dec 16 2008

EXTENSIONS

Edited by N. J. A. Sloane, Jan 31 2009

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 13 19:25 EST 2018. Contains 317149 sequences. (Running on oeis4.)