A064956 Inverse permutation to A064417.
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, 20, 18, 68, 21, 79, 25, 27, 44, 23, 26, 96, 51, 32, 24, 104, 37, 113, 30, 38, 61, 119, 31, 56, 39, 42, 35, 137, 48, 40, 36, 49, 69, 146, 41, 156, 80, 57, 46, 54, 58, 173, 45, 59, 55
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- J. C. Lagarias, E. M. Rains and N. J. A. Sloane, The EKG sequence, Exper. Math. 11 (2002), 437-446.
- Index entries for sequences related to EKG sequence
- Index entries for sequences that are permutations of the natural numbers
Programs
-
Haskell
import Data.List (elemIndex) import Data.Maybe (fromJust) a064956 n = (fromJust $ elemIndex n a064417_list) + 1 -- Reinhard Zumkeller, Nov 13 2011
Extensions
More terms from Naohiro Nomoto, Oct 31 2001