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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A027935 Triangular array T read by rows: T(n,k)=t(n,2k), t given by A027926; 0 <= k <= n, n >= 0. 15
1, 1, 1, 1, 2, 1, 1, 2, 4, 1, 1, 2, 5, 7, 1, 1, 2, 5, 12, 11, 1, 1, 2, 5, 13, 26, 16, 1, 1, 2, 5, 13, 33, 51, 22, 1, 1, 2, 5, 13, 34, 79, 92, 29, 1, 1, 2, 5, 13, 34, 88, 176, 155, 37, 1, 1, 2, 5, 13, 34, 89, 221, 365, 247, 46, 1, 1, 2, 5, 13, 34, 89, 232, 530, 709, 376, 56, 1 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,5

LINKS

G. C. Greubel, Rows n = 0..100 of triangle, flattened

FORMULA

T(n,k) = Sum_{j=0..floor((2*n-2*k-1)/2)} binomial(n-j, 2*(n-k-j)). - G. C. Greubel, Sep 27 2019

EXAMPLE

Triangle begins:

  1;

  1, 1;

  1, 2, 1;

  1, 2, 4,  1:

  1, 2, 5,  7,  1;

  1, 2, 5, 12, 11,  1;

  1, 2, 5, 13, 26, 16, 1;

  ...

MAPLE

T:= proc(n, k) option remember;

     add( binomial(n-j, 2*(n-k-j)), j=0..floor((2*n - 2*k+1)/2))

   end:

seq(seq(T(n, k), k=0..n), n=0..12); # G. C. Greubel, Sep 27 2019

MATHEMATICA

T[n_, k_]:= Sum[Binomial[n-j, 2*(n-k-j)], {j, 0, Floor[(2*n-2*k+1)/2]}]; Table[T[n, k], {n, 0, 12}, {k, 0, n}]//Flatten (* G. C. Greubel, Sep 27 2019 *)

PROG

(PARI) T(n, k) = sum(j=0, (2*n-2*k+1)\2, binomial(n-j, 2*(n-k-j)));

for(n=0, 12, for(k=0, n, print1(T(n, k), ", "))) \\ G. C. Greubel, Sep 27 2019

(MAGMA) T:= func< n, k | &+[Binomial(n-j, 2*(n-k-j)) : j in [0..Floor((2*n -2*k+1)/2)]] >;

[T(n, k): k in [0..n], n in [0..12]]; // G. C. Greubel, Sep 27 2019

(Sage) [[ sum(binomial(n-j, 2*(n-k-j)) for j in (0..floor((2*n-2*k+1)/2)) ) for k in (0..n)] for n in (0..12)] # G. C. Greubel, Sep 27 2019

(GAP) Flat(List([0..12], n-> List([0..n], k-> Sum([0..Int((2*n-2*k+1)/2) ], j-> Binomial(n-j, 2*(n-k-j))) ))); # G. C. Greubel, Sep 27 2019

CROSSREFS

The row sums of this bisection of the "Fibonacci array" A027926 are powers of 2, see A027948 for the other bisection.

Sequence in context: A140994 A245163 A140993 * A137940 A274859 A137855

Adjacent sequences:  A027932 A027933 A027934 * A027936 A027937 A027938

KEYWORD

nonn,tabl

AUTHOR

Clark Kimberling

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 23 08:57 EDT 2019. Contains 328345 sequences. (Running on oeis4.)