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
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 13 2003
STATUS
approved