|
%I #11 Dec 19 2015 16:10:30
%S 1,2,3,4,6,5,10,13,17,7,25,30,36,42,8,54,61,69,78,9,11,104,115,126,
%T 138,150,163,14,189,203,218,233,249,265,12,18,315,333,352,371,391,411,
%U 432,453,21,496,519,542,566,590,615,640,666,692,26,15,771,799,828,857,887
%N Inverse permutation to sequence A014631.
%H Reinhard Zumkeller, <a href="/A119629/b119629.txt">Table of n, a(n) for n = 1..1000</a>
%t 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_ *)
%o (Haskell)
%o import Data.List (elemIndex); import Data.Maybe (fromJust)
%o a119629 = (+ 1) . fromJust . (`elemIndex` a014631_list)
%o -- _Reinhard Zumkeller_, Dec 18 2015
%Y Cf. A014631.
%Y Cf. A265912.
%K nonn
%O 1,2
%A _Leroy Quet_, Jun 08 2006
%E More terms from _Robert G. Wilson v_, Jun 08 2006
|
