OFFSET
1,2
COMMENTS
This is a permutation of the positive integers (provided A075075 really is a permutation).
LINKS
H. v. Eitzen, Table of n, a(n) for n = 1..50000
FORMULA
A075075(a(n)) = n.
MATHEMATICA
f[s_List] := Block[{m = Numerator[s[[ -1]]/s[[ -2]]]}, k = m; While[MemberQ[s, k], k += m]; Append[s, k]]; s = Nest[f, {1, 2}, 200]; Table[ Position[s, n, 1, 1], {n, 70}] // Flatten (* Robert G. Wilson v, May 20 2009 *)
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a160516 = (+ 1) . fromJust . (`elemIndex` a075075_list)
-- Reinhard Zumkeller, Dec 19 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Hagen von Eitzen, May 16 2009
STATUS
approved