login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A084933 Inverse of A084937. 4
1, 2, 3, 5, 4, 11, 6, 8, 7, 14, 9, 26, 10, 20, 18, 17, 12, 29, 13, 32, 15, 23, 16, 56, 21, 35, 22, 38, 19, 59, 24, 41, 33, 47, 25, 62, 27, 44, 39, 53, 28, 95, 30, 50, 36, 65, 31, 92, 34, 74, 42, 68, 37, 98, 40, 71, 49, 77, 43, 101, 45, 80, 46, 83, 48, 137, 51, 86, 52 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Empirically, A084937 is a permutation of the natural numbers. Assuming that is true, we will have a(A084937(n)) = A084937(a(n)) = n. (Comment revised by N. J. A. Sloane, Nov 05 2014)

LINKS

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

Index entries for sequences that are permutations of the natural numbers

MATHEMATICA

f[s_] := Block[{k = 1, l = Take[s, -2]}, While[ Union[ GCD[k, l]] != {1} || MemberQ[s, k], k++]; Append[s, k]]; Ordering@ Nest[f, {1, 2}, 100] (* Robert G. Wilson v, Jun 26 2011 *)

PROG

(Haskell)

import Data.List (elemIndex)

import Data.Maybe (fromJust)

a084933 n = (fromJust $ elemIndex n a084937_list) + 1

-- Reinhard Zumkeller, Jan 28 2012

CROSSREFS

Cf. A084937. For records see A249684, A249685.

Sequence in context: A079521 A325549 A112060 * A213900 A213648 A302849

Adjacent sequences:  A084930 A084931 A084932 * A084934 A084935 A084936

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Jun 13 2003

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 15 00:36 EDT 2020. Contains 335762 sequences. (Running on oeis4.)