A028320 Distinct even elements in the 5-Pascal triangle A028313.

6, 12, 8, 38, 10, 36, 46, 130, 204, 378, 462, 14, 82, 582, 840, 96, 1422, 1680, 16, 1210, 3102, 562, 6204, 18, 144, 5148, 8866, 162, 2912, 14014, 23166, 20, 1176, 4740, 14028, 31668, 55848, 78078, 87230, 22, 222, 5916, 18768, 45696, 87516, 133926

Offset

0,1

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Mathematica

DeleteDuplicates[Table[If[n<2, 1, Binomial[n, k] +3*Binomial[n-2, k-1]], {n, 0, 30}, {k, 0, n}]//Flatten]//Select[EvenQ] (* G. C. Greubel, Jul 13 2024 *)

Prog

(SageMath)
def A028323(n, k): return 1 if n<2 else binomial(n, k) + 3*binomial(n-2, k-1)
b=flatten([[A028323(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(b) # A028320 # G. C. Greubel, Jul 13 2024

Crossrefs

Cf. A028313, A028314, A028315, A028316, A028317, A028318, A028319.

Cf. A028321, A028322, A028323, A028324, A028325, A051472.

Sequence in context: A028627 A162522 A292680 * A119437 A243033 A242549

Adjacent sequences: A028317 A028318 A028319 * A028321 A028322 A028323

Keyword

nonn,changed

Author

Mohammad K. Azarian

Extensions

More terms from James A. Sellers, Dec 08 1999

Status

approved