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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A152719 Triangle read by rows: T(n,k) = A000129( 1 + min(k,n-k) ), n>=0, 0<=k<=n. 1
1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 5, 2, 1, 1, 2, 5, 5, 2, 1, 1, 2, 5, 12, 5, 2, 1, 1, 2, 5, 12, 12, 5, 2, 1, 1, 2, 5, 12, 29, 12, 5, 2, 1, 1, 2, 5, 12, 29, 29, 12, 5, 2, 1, 1, 2, 5, 12, 29, 70, 29, 12, 5, 2, 1 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

COMMENTS

Row sums give A238375.

LINKS

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

FORMULA

Sum_{k=0..n} T(n,k) = A238375(n). - Philippe Deléham, Feb 27 2014

T(2*n,n) = A000129(n+1). - Philippe Deléham, Feb 27 2014

EXAMPLE

{1},

{1, 1},

{1, 2, 1},

{1, 2, 2, 1},

{1, 2, 5, 2, 1},

{1, 2, 5, 5, 2, 1},

{1, 2, 5, 12, 5, 2, 1},

{1, 2, 5, 12, 12, 5, 2, 1},

{1, 2, 5, 12, 29, 12, 5, 2, 1},

{1, 2, 5, 12, 29, 29, 12, 5, 2, 1},

{1, 2, 5, 12, 29, 70, 29, 12, 5, 2, 1}

MATHEMATICA

Clear[a, k, m]; k = 2; l = 1;

a[0] = {1}; a[1] = {1, 1}; a[n_] := a[n] = Join[{1}, k*a[n - 2], {1}] + If[n >= 4, l*Join[{0, 0}, a[n - 4], {0, 0}], Table[0, {i, 0, n}]]

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

CROSSREFS

Cf. A238375 (row sums), A000129.

Sequence in context: A214246 A214257 A214248 * A107044 A141591 A174545

Adjacent sequences:  A152716 A152717 A152718 * A152720 A152721 A152722

KEYWORD

nonn,tabl

AUTHOR

Roger L. Bagula, Dec 11 2008

EXTENSIONS

Better name by Philippe Deléham, Feb 27 2014

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 October 15 10:15 EDT 2019. Contains 328026 sequences. (Running on oeis4.)