login
A243500
Self-inverse permutation of natural numbers: a(2n) = A003961(A048673(n)), a(2n-1) = 2 * A245448(n).
3
2, 1, 4, 3, 6, 5, 8, 7, 10, 9, 22, 27, 20, 15, 14, 33, 18, 17, 28, 13, 34, 11, 62, 29, 26, 25, 12, 19, 24, 75, 68, 43, 16, 21, 46, 69, 118, 45, 82, 243, 142, 99, 32, 63, 38, 35, 78, 171, 50, 49, 52, 51, 116, 275, 74, 147, 122, 81, 60, 59, 88, 23, 44, 201, 66, 65, 98, 31, 36
OFFSET
1,1
FORMULA
a(2n) = A003961(A048673(n)), a(2n-1) = 2 * A245448(n).
a(2n) = A003961(A048673(n)), a(2n-1) = A243502(A064989(2n-1)).
a(2n) = A003961((A003961(n)+1)/2), a(2n-1) = 2 * A064216(A064989(2n-1)).
PROG
(Scheme, two alternative implementations)
(define (A243500 n) (cond ((odd? n) (A243502 (A064989 n))) (else (A003961 (A048673 (/ n 2))))))
(define (A243500 n) (if (even? n) (A003961 (A048673 (/ n 2))) (* 2 (A245448 (/ (1+ n) 2)))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 18 2014
STATUS
approved