A028328 Distinct elements in the even-Pascal triangle A028326.

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

Offset: 0

Author

Mohammad K. Azarian

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

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

SageMath

A028326=flatten([[2*binomial(n,k) for k in range(n+1)] 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(A028326) # A028328 # G. C. Greubel, Jul 13 2024

Extensions

More terms from James Sellers, Dec 08 1999