OFFSET
1,1
COMMENTS
The permutation is self-inverse: a(a(n)) = n;
by definition there are no fixed points.
LINKS
PROG
(Haskell)
import Data.List (delete)
a260822 n = a260822_list !! (n-1)
a260822_list = f 1 [1..] where
f x zs = g zs where
g (y:ys) = if y /= x && a010051' (x + y) == 0
then y : f (x + 1) (delete y zs) else g ys
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 04 2015
STATUS
approved