login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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