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

Links

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

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A106164 A216205 A072230 * A183171 A124827 A140965

Adjacent sequences: A028329 A028330 A028331 * A028333 A028334 A028335

Keyword

nonn,easy

Author

Mohammad K. Azarian

Extensions

More terms from Asher Auel

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

Status

approved