OFFSET
1,2
COMMENTS
Is this sequence finite?
MATHEMATICA
t = Table[k = 1; While[b = Binomial[k, Range[0, k/2]]; d = Differences[b, n + 1]; ! MemberQ[d, 0], k++]; {k, Position[d, 0, 1, 1][[1, 1]] - 1}, {n, 6}]; Transpose[t][[2]]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Apr 21 2014
STATUS
approved