OFFSET
1,1
COMMENTS
In contrast to A006987, here the duplicates are not removed. Thus 120 = binomial(10,3) = binomial(16,2) appears twice.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
The first three terms are binomial(4,2) = 6, binomial(5,2) = 10, binomial(6,2) = 15.
MAPLE
N:= 10^3: # to get terms <= N
Res:= NULL:
for n from 2 while n*(n-1)/2 <= N do
for k from 2 to n/2 do
v:= binomial(n, k);
if v > N then break fi;
Res:= Res, v
od od:
sort([Res]);
MATHEMATICA
M = 10^3;
Reap[For[n = 2, n(n-1)/2 <= M, n++, For[k = 2, k <= n/2, k++, v = Binomial[n, k]; If[v > N, Break[]]; Sow[v]]]][[2, 1]] // Sort (* Jean-François Alcover, Apr 27 2019, from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Sep 18 2018
STATUS
approved