|
| |
|
|
A159346
|
|
Triangle read by rows: every third term of every third row of A008292.
|
|
1
| |
|
|
1, 1, 1, 1, 2416, 1, 1, 455192, 455192, 1, 1, 45533450, 2275172004, 45533450, 1, 1, 3572085255, 3207483178157, 3207483178157, 3572085255, 1, 1, 251732291184, 2527925001876036, 37307713155613000, 2527925001876036, 251732291184, 1, 1, 16871482830550, 1454842842001939656
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| Row sums are 1, 2, 2418, 910386, 2366238906, 6422110526826, 42364066623947442, 365177884120263581634, 5244467282898658636883274,
100806053706495867884737652154, 2753506371613138713078675746891778,...
|
|
|
EXAMPLE
| {1},
{1, 1},
{1, 2416, 1},
{1, 455192, 455192, 1},
1, 45533450, 2275172004, 45533450, 1},
{1, 3572085255, 3207483178157, 3207483178157, 3572085255, 1}
|
|
|
MATHEMATICA
| << DiscreteMath`Combinatorica`
k = 3;
a = Table[Table[Eulerian[n + 1, k*m], {m, 0, Floor[n/k]}], {n, 0, 10*k, k}];
Flatten[%]
|
|
|
CROSSREFS
| Cf.A008292,A085503
Sequence in context: A031637 A031547 A031727 * A097030 A204367 A131759
Adjacent sequences: A159343 A159344 A159345 * A159347 A159348 A159349
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Dec 13 2010
|
|
|
EXTENSIONS
| Edited b y N. J. A. Sloane, Jan 01 2011
|
| |
|
|
