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,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A099994 A068065 A278228 * A360408 A274262 A092990

Adjacent sequences: A028325 A028326 A028327 * A028329 A028330 A028331

Keyword

nonn

Author

Mohammad K. Azarian

Extensions

More terms from James A. Sellers, Dec 08 1999

Status

approved