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
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from Asher Auel
Duplicated 20 removed by Sean A. Irvine, Dec 29 2019
STATUS
approved