login
A028318
Distinct elements in the 5-Pascal triangle A028313.
6
1, 5, 6, 7, 12, 8, 19, 9, 27, 38, 10, 36, 65, 11, 46, 101, 130, 57, 147, 231, 13, 69, 204, 378, 462, 14, 82, 273, 582, 840, 15, 96, 355, 855, 1422, 1680, 16, 111, 451, 1210, 2277, 3102, 17, 127, 562, 1661, 3487, 5379, 6204, 18, 144, 689, 2223, 5148, 8866
OFFSET
0,2
LINKS
MATHEMATICA
DeleteDuplicates[Table[If[n<2, 1, Binomial[n, k] +3*Binomial[n-2, k-1]], {n, 0, 30}, {k, 0, n}]//Flatten] (* G. C. Greubel, Jul 03 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)]
return nd
a(b) # A028318 # G. C. Greubel, Jul 03 2024
CROSSREFS
Sequence in context: A307751 A039589 A373854 * A154952 A037360 A120521
KEYWORD
nonn
EXTENSIONS
More terms from James A. Sellers, Dec 08 1999
STATUS
approved