login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A227617 Smallest m such that A100707(m) = n. 4
1, 2, 5, 3, 19, 8, 4, 6, 17, 15, 13, 11, 9, 7, 34, 30, 28, 26, 32, 24, 22, 10, 12, 14, 16, 18, 20, 61, 57, 55, 53, 51, 49, 47, 45, 43, 41, 59, 39, 23, 114, 37, 25, 27, 21, 29, 31, 35, 112, 110, 33, 108, 106, 104, 100, 98, 96, 94, 92, 90, 88, 86, 84, 82, 80 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

If A100707 is a permutation of the natural numbers, then this sequence is its inverse;

A227632 and A227633 give record values and where they occur:

a(A227633(n)) = A227632(n); A227633(n) = A100707(A227632(n)).

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

PROG

b-file

(Haskell)

import qualified Data.Map as Map (null, insert)

import Data.Map (empty, deleteFindMin)

a227617 n = a227617_list !! (n-1)

a227617_list = f 1 empty $ zip a100707_list [1..] where

   f i mp (uv:uvs)

     | Map.null mp = f i (uncurry Map.insert uv mp) uvs

     | y == i      = x : f (i + 1) (uncurry Map.insert uv mp') uvs

     | otherwise   = f i (uncurry Map.insert uv mp) uvs

     where ((y, x), mp') = deleteFindMin mp

CROSSREFS

Sequence in context: A087228 A285743 A077216 * A309080 A058357 A176613

Adjacent sequences:  A227614 A227615 A227616 * A227618 A227619 A227620

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Jul 19 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 11 07:36 EDT 2022. Contains 356055 sequences. (Running on oeis4.)