OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst = {1}; t = Flatten[Table[Binomial[n, m], {n, 16}, {m, Floor[n/2]}]]; Do[ If[ !MemberQ[lst, t[[n]]], AppendTo[lst, t[[n]] ]], {n, Length@t}]; Flatten@Table[ Position[lst, n], {n, 61}] (* Robert G. Wilson v *)
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a119629 = (+ 1) . fromJust . (`elemIndex` a014631_list)
-- Reinhard Zumkeller, Dec 18 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 08 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jun 08 2006
STATUS
approved