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,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

Cf. A014631.

Cf. A265912.

Sequence in context: A209268 A257798 A183079 * A014631 A263266 A263268

Adjacent sequences: A119626 A119627 A119628 * A119630 A119631 A119632

Keyword

nonn

Author

Leroy Quet, Jun 08 2006

Extensions

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

Status

approved