login
A117922
Inverse of A055265, assuming it is a permutation, as conjectured.
4
1, 2, 3, 4, 7, 6, 5, 8, 9, 10, 17, 16, 11, 14, 13, 12, 15, 18, 19, 22, 21, 20, 23, 24, 29, 32, 31, 28, 25, 26, 27, 36, 33, 30, 35, 40, 41, 34, 37, 38, 43, 42, 39, 48, 47, 54, 51, 44, 45, 50, 55, 46, 49, 52, 53, 56, 57, 64, 69, 72, 59, 62, 67, 66, 61, 60, 71, 68, 63, 58, 73, 70
OFFSET
1,2
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a117922 = (+ 1) . fromJust . (`elemIndex` a055265_list)
-- Reinhard Zumkeller, Feb 14 2013
CROSSREFS
A117924(n) = a(a(n)); A117925 lists fixed points.
Sequence in context: A266644 A329411 A055265 * A266643 A321525 A321524
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 03 2006
EXTENSIONS
Edited by M. F. Hasler, Dec 14 2015
STATUS
approved