%I #15 Jul 15 2024 10:21:02
%S 2,6,8,20,10,30,12,70,42,14,112,56,16,252,168,72,18,420,240,90,924,
%T 660,330,110,22,1584,990,440,132,24,3432,2574,1430,572,156,26,6006,
%U 4004,2002,728,182,28,12870,10010,2730,910,210,22880,16016,8736,3640
%N Distinct elements to the right of the central elements of the even-Pascal triangle A028326.
%H G. C. Greubel, <a href="/A028332/b028332.txt">Table of n, a(n) for n = 0..1000</a>
%t 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 *)
%o (SageMath)
%o A028330=flatten([[2*binomial(n+1,k+1+((n+1)//2)) for k in range(1+(n//2))] for n in range(31)])
%o def a(seq): # order preserving
%o nd = [] # no duplicates
%o [nd.append(i) for i in seq if not nd.count(i) and i%2==0]
%o return nd
%o a(A028330) # A028332 # _G. C. Greubel_, Jul 14 2024
%Y Cf. A028326, A028327, A028328, A028329, A028330, A028331.
%K nonn,easy
%O 0,1
%A _Mohammad K. Azarian_
%E More terms from _Asher Auel_
%E Duplicated 20 removed by _Sean A. Irvine_, Dec 29 2019