login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A134636 Triangle formed by Pascal's rule given borders = 2n+1. 7

%I #28 Mar 26 2022 03:58:20

%S 1,3,3,5,6,5,7,11,11,7,9,18,22,18,9,11,27,40,40,27,11,13,38,67,80,67,

%T 38,13,15,51,105,147,147,105,51,15,17,66,156,252,294,252,156,66,17,19,

%U 83,222,408,546,546,408,222,83,19,21,102,305,630,954,1092,954,630,305,102,21

%N Triangle formed by Pascal's rule given borders = 2n+1.

%C Row sums = A048487: (1, 6, 16, 36, 76, 156, ...).

%H Reinhard Zumkeller, <a href="/A134636/b134636.txt">Rows n = 0..120 of triangle, flattened</a>

%H <a href="/index/Pas#Pascal">Index entries for triangles and arrays related to Pascal's triangle</a>

%F Triangle, given borders = (1, 3, 5, 7, 9, ...); apply Pascal's rule T(n,k) = T(n-1,k) P T(n-1,k-1).

%F T(n,k) = A051601(n,k) + A051597(n,k); T(n,k) mod 2 = A047999(n,k). - _Reinhard Zumkeller_, Nov 23 2012

%F Closed-form formula for arbitrary left and right borders of Pascal like triangle see A228196. - _Boris Putievskiy_, Aug 19 2013

%e First few rows of the triangle:

%e 1;

%e 3, 3;

%e 5, 6, 5;

%e 7, 11, 11, 7;

%e 9, 18, 22, 18, 9;

%e 11, 27, 40, 40, 27, 11;

%e 13, 38, 67, 80, 67, 38, 13;

%e ...

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

%p `if`(k<0 or k>n, 0,

%p `if`(k=0 or k=n, 2*n+1,

%p T(n-1, k-1) + T(n-1, k) ))

%p end:

%p seq(seq(T(n, k), k=0..n), n=0..14); # _Alois P. Heinz_, May 26 2013

%t NestList[Append[Prepend[Map[Apply[Plus, #] &, Partition[#, 2, 1]], #[[1]] + 2], #[[1]] + 2] &, {1}, 10] // Grid (* _Geoffrey Critzer_, May 26 2013 *)

%t T[n_, k_] := Binomial[n, k-1] + Binomial[n, k] + 2 Binomial[n, k+1] + Binomial[n, n-k+1];

%t Table[T[n, k], {n, 0, 14}, {k, 0, n}] // Flatten (* _Jean-François Alcover_, Mar 07 2021 *)

%o (Haskell)

%o a134636 n k = a134636_tabl !! n !! k

%o a134636_row n = a134636_tabl !! n

%o a134636_tabl = iterate (\row -> zipWith (+) ([2] ++ row) (row ++ [2])) [1]

%o -- _Reinhard Zumkeller_, Nov 23 2012

%Y Cf. A007318, A048487, A051601, A051597.

%K nonn,tabl

%O 0,2

%A _Gary W. Adamson_, Nov 04 2007

%E Offset changed by _Reinhard Zumkeller_, Nov 23 2012

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 07:20 EDT 2024. Contains 371235 sequences. (Running on oeis4.)