The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A177802

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A177802

A row reversed version of A177517
(history; published version)

#7 by R. J. Mathar at Tue Jul 10 12:20:30 EDT 2012

STATUS

editing

approved

#6 by R. J. Mathar at Tue Jul 10 12:20:26 EDT 2012

AUTHOR

_Roger L. Bagula _ and Mats Granvik (rlbagulatftn(AT)yahoo.com), , Dec 12 2010

STATUS

approved

editing

#5 by N. J. A. Sloane at Mon Dec 13 10:16:55 EST 2010

STATUS

proposed

approved

#4 by N. J. A. Sloane at Mon Dec 13 10:16:48 EST 2010

KEYWORD

nonn,tabl,tabf,new

#3 by Roger Bagula at Sun Dec 12 10:03:30 EST 2010

NAME

allocated for Roger BagulaA row reversed version of A177517

DATA

1, 1, 1, 0, 1, 1, 1, 2, 0, 1, 3, 2, 1, 4, 5, 1, 1, 5, 9, 6, 1, 6, 14, 15, 5, 1, 7, 20, 29, 20, 1, 8, 27, 49, 49, 22, 1, 9, 35, 76, 98, 71

OFFSET

1,8

COMMENTS

The row reversal allows getting rid of the initial zeros in A177517

and shows the polynomial structure of the sequence more clearly.

EXAMPLE

{1},

{1, 0},

{1, 1},

{1, 2, 0},

{1, 3, 2},

{1, 4, 5, 1},

{1, 5, 9, 6},

{1, 6, 14, 15, 5},

{1, 7, 20, 29, 20},

{1, 8, 27, 49, 49, 22},

{1, 9, 35, 76, 98, 71}

MATHEMATICA

Clear[t, n, k]

t[n_, 1] := If[n == 1, 1, 0]

t[n_, k_] := t[n, k] = Sum[t[n - i, k - 1], {i, 1, k - 1}]

a = Table[Reverse[Table[t[n, k], {k, 1, n}]], {n, 1, 12}];

Table[Table[a[[n, k]], {k, 1, Floor[(n + 1)/2]}], {n, 1, Length[a]}];

Flatten[%]

CROSSREFS

Cf. A177517

KEYWORD

allocated

nonn,tabl

AUTHOR

Roger Bagula and Mats Granvik (rlbagulatftn(AT)yahoo.com), Dec 12 2010

STATUS

approved

proposed

#2 by Roger Bagula at Sun Dec 12 10:03:30 EST 2010

NAME

allocated for Roger Bagula

KEYWORD

recycled

allocated

#1 by Russ Cox at Fri Nov 12 14:26:06 EST 2010

KEYWORD

recycled

STATUS

approved