A026919 Uniquification of A026907.

1, 13, 28, 44, 46, 67, 90, 91, 118, 148, 154, 181, 198, 217, 239, 256, 298, 343, 348, 370, 391, 442, 484, 496, 553, 613, 627, 650, 676, 742, 758, 811, 849, 883, 958, 993, 1036, 1084, 1117, 1201, 1288, 1358, 1378, 1403, 1471, 1495

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..2500

Crossrefs

Cf. A026907.

Programs

Mathematica

A026919= Table[Binomial[n,k] +3*Binomial[n+4,k+2] -18, {n,0,100}, {k,0,n}]//Flatten// Union;
Table[A026919[[n]], {n,100}] (* G. C. Greubel, Aug 22 2025 *)

SageMath

def A026907(n,k): return binomial(n,k) +3*binomial(n+4,k+2) -18
A026919= sorted(set(flatten([[A026907(n,k) for k in range(n+1)] for n in range(103)]) ))
print([A026919[n] for n in range(100)]) # G. C. Greubel, Aug 22 2025