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
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from James A. Sellers, Dec 08 1999
STATUS
approved