login
A028328
Distinct elements in the even-Pascal triangle A028326.
7
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
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
KEYWORD
nonn
EXTENSIONS
More terms from James A. Sellers, Dec 08 1999
STATUS
approved