|
%I #14 Jul 13 2013 12:02:40
%S 1,2,3,7,11,4,16,8,5,12,28,6,33,17,13,9,43,14,50,10,15,29,60,19,22,34,
%T 20,18,68,21,79,25,27,44,23,26,96,51,32,24,104,37,113,30,38,61,119,31,
%U 56,39,42,35,137,48,40,36,49,69,146,41,156,80,57,46,54,58,173,45,59,55
%N Inverse permutation to A064417.
%H Reinhard Zumkeller, <a href="/A064956/b064956.txt">Table of n, a(n) for n = 1..10000</a>
%H J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="http://arXiv.org/abs/math.NT/0204011">The EKG sequence</a>, Exper. Math. 11 (2002), 437-446.
%H <a href="/index/Ed#EKG">Index entries for sequences related to EKG sequence</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%o (Haskell)
%o import Data.List (elemIndex)
%o import Data.Maybe (fromJust)
%o a064956 n = (fromJust $ elemIndex n a064417_list) + 1
%o -- _Reinhard Zumkeller_, Nov 13 2011
%Y Cf. A064417, A064413.
%K nonn,easy
%O 1,2
%A _N. J. A. Sloane_, Oct 30 2001
%E More terms from _Naohiro Nomoto_, Oct 31 2001
|
