A119629 Inverse permutation to sequence A014631.

1, 2, 3, 4, 6, 5, 10, 13, 17, 7, 25, 30, 36, 42, 8, 54, 61, 69, 78, 9, 11, 104, 115, 126, 138, 150, 163, 14, 189, 203, 218, 233, 249, 265, 12, 18, 315, 333, 352, 371, 391, 411, 432, 453, 21, 496, 519, 542, 566, 590, 615, 640, 666, 692, 26, 15, 771, 799, 828, 857, 887

Offset: 1

Author

Leroy Quet, Jun 08 2006

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A014631.

Cf. A265912.

Programs

Haskell

import Data.List (elemIndex); import Data.Maybe (fromJust)
a119629 = (+ 1) . fromJust . (`elemIndex` a014631_list)
-- Reinhard Zumkeller, Dec 18 2015

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 *)

Extensions

More terms from Robert G. Wilson v, Jun 08 2006