A081494
Start with Pascal's triangle; form a triangle by sliding down n steps from top on both sides and including the horizontal row, deleting the inner numbers; a(n) = sum of entries on perimeter of triangle.
Original entry on oeis.org
1, 3, 7, 13, 23, 41, 75, 141, 271, 529, 1043, 2069, 4119, 8217, 16411, 32797, 65567, 131105, 262179, 524325, 1048615, 2097193, 4194347, 8388653, 16777263, 33554481, 67108915, 134217781, 268435511, 536870969, 1073741883, 2147483709
Offset: 1
The triangle pertaining to n = 4 is obtained from the solid triangle
1
1 1
1 2 1
1 3 3 1
giving
1
1 1
1 1
1 3 3 1
and the sum of all the numbers is 13, so a(4) = 13.
-
restart:a:= proc(n) option remember; if n=0 then 1 else add((binomial (n,j)+2), j=0..n-1) fi end: seq (a(n), n=0..31); # Zerinvary Lajos, Mar 29 2009
A081495
Start with Pascal's triangle; form a rhombus by sliding down n steps from top on both sides then sliding down inwards to complete the rhombus and then deleting the inner numbers; a(n) = sum of entries on perimeter of rhombus.
Original entry on oeis.org
1, 5, 17, 55, 189, 681, 2519, 9451, 35765, 136153, 520695, 1998745, 7696467, 29716025, 115000947, 445962899, 1732525861, 6741529113, 26270128535, 102501265057, 400411345659, 1565841089321, 6129331763923, 24014172955545, 94163002754699, 369507926510401
Offset: 1
The rhombus pertaining to n = 4 is obtained from the solid rhombus
.....1
...1...1
.1...2...1
1..3...3...1
..4..6...4
...10..10
.....20
giving
.....1
...1...1
.1.......1
1..........1
..4......4
...10..10
.....20
and the sum of all the numbers is 55, a(4) = 55.
-
B:=Binomial;; Concatenation([1], List([2..25], n-> B(2*n, n)-B(2*(n-1), n-1) +2*n -3)); # G. C. Greubel, Aug 13 2019
-
C:=Catalan; [1] cat [(n+1)*C(n) -n*C(n-1) +2*n-3: n in [2..25]]; // G. C. Greubel, Aug 13 2019
-
seq(coeff(series(((1-x)^3 - (1-2*x-x^3)*sqrt(1-4*x))/((1-x)^2*sqrt(1-4*x) ), x, n+1), x, n), n = 1..25); # G. C. Greubel, Aug 13 2019
-
With[{C = CatalanNumber}, Table[If[n==1, 1, (n+1)*C[n] -n*C[n-1] +2*n-3], {n, 25}]] (* G. C. Greubel, Aug 13 2019 *)
-
vector(25, n, b=binomial; if(n==1,1,b(2*n, n)-b(2*(n-1), n-1) +2*n -3)) \\ G. C. Greubel, Aug 13 2019
-
b=binomial; [1]+[b(2*n, n)-b(2*(n-1), n-1) +2*n -3 for n in (2..25)] # G. C. Greubel, Aug 13 2019
A028270
Central elements in 3-Pascal triangle A028262 (by row).
Original entry on oeis.org
1, 3, 8, 26, 90, 322, 1176, 4356, 16302, 61490, 233376, 890188, 3409588, 13104756, 50517200, 195234120, 756197910, 2934686610, 11408741520, 44420399100, 173191792620, 676104403260, 2642356838160, 10337529691320, 40481034410700
Offset: 0
-
seq(binomial(2*n,n)+binomial(2*n-2,n-1),n=0..24);
seq(2*binomial(2*n-1,n-1)+binomial(2*n-2,n-1),n=1..24);
Showing 1-3 of 3 results.
Comments