A064959 Inverse permutation to A064419.

1, 2, 3, 4, 5, 11, 23, 18, 14, 6, 33, 12, 40, 24, 7, 19, 62, 13, 68, 8, 25, 34, 87, 17, 9, 41, 15, 26, 104, 10, 111, 20, 35, 63, 22, 16, 133, 69, 42, 21, 144, 27, 162, 36, 30, 88, 172, 28, 47, 31, 64, 43, 197, 29, 32, 46, 70, 105, 215, 38, 237, 112, 48, 52, 39, 37, 248, 65

Offset: 1

Author

N. J. A. Sloane, Oct 30 2001

Keywords

• nonn
• easy

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

Crossrefs

Cf. A064419, A064413.

Programs

Haskell

import Data.List (elemIndex)
import Data.Maybe (fromJust)
a064959 n = a064959_list !! (n-1)
a064959_list = map ((+ 1) . fromJust . (`elemIndex` a064419_list)) [1..]
-- Reinhard Zumkeller, Sep 17 2001

Extensions

More terms from Naohiro Nomoto, Oct 31 2001