A028332 Distinct elements to the right of the central elements of the even-Pascal triangle A028326.

2, 6, 8, 20, 10, 30, 12, 70, 42, 14, 112, 56, 16, 252, 168, 72, 18, 420, 240, 90, 924, 660, 330, 110, 22, 1584, 990, 440, 132, 24, 3432, 2574, 1430, 572, 156, 26, 6006, 4004, 2002, 728, 182, 28, 12870, 10010, 2730, 910, 210, 22880, 16016, 8736, 3640

Offset: 0

Author

Mohammad K. Azarian

Keywords

• nonn
• easy

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A028326, A028327, A028328, A028329, A028330, A028331.

Programs

Mathematica

DeleteDuplicates[Table[2*Binomial[n+1, k+1 +Floor[(n+1)/2]], {n,0,30}, {k,0,Floor[n/2]}]//Flatten] (* G. C. Greubel, Jul 14 2024 *)

SageMath

A028330=flatten([[2*binomial(n+1,k+1+((n+1)//2)) for k in range(1+(n//2))] for n in range(31)])
def a(seq): # order preserving
    nd = [] # no duplicates
    [nd.append(i) for i in seq if not nd.count(i) and i%2==0]
    return nd
a(A028330) # A028332 # G. C. Greubel, Jul 14 2024

Extensions

More terms from Asher Auel

Duplicated 20 removed by Sean A. Irvine, Dec 29 2019