login
Distinct elements to the right of the central elements of the even-Pascal triangle A028326.
7

%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