A268675 Self-inverse permutation of natural numbers: a(1) = 1; a(n) = A000079(A193231(A007814(n))) * A250469(a(A268674(n))).

1, 2, 3, 8, 5, 6, 7, 4, 21, 10, 11, 24, 13, 14, 15, 32, 17, 42, 19, 40, 9, 22, 23, 12, 55, 26, 27, 56, 29, 30, 31, 16, 69, 34, 35, 168, 37, 38, 39, 20, 41, 18, 43, 88, 93, 46, 47, 96, 91, 110, 123, 104, 53, 54, 25, 28, 117, 58, 59, 120, 61, 62, 63, 64, 65, 138, 67, 136, 33, 70, 71, 84, 73, 74, 75, 152, 77, 78, 79, 160

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..1914

Index entries for sequences that are permutations of the natural numbers

Formula

a(1) = 1, and for n > 1, a(n) = A000079(A193231(A007814(n))) * A250469(a(A268674(n))).

Other identities. For all n >= 1:

A000035(a(n)) = A000035(n). [This permutation preserves the parity of n.]

A020639(a(n)) = A020639(n). [More generally, it preserves the smallest prime dividing n.]

A055396(a(n)) = A055396(n).

Prog

(Scheme, with memoization-macro definec)
(definec (A268675 n) (if (= 1 n) 1 (* (A000079 (A193231 (A007814 n))) (A250469 (A268675 (A268674 n))))))

Crossrefs

Cf. A000079, A000265, A007814, A193231, A250469, A268674.

Cf. also A268385.

Sequence in context: A277972 A222243 A264978 * A268385 A093928 A356191

Adjacent sequences: A268672 A268673 A268674 * A268676 A268677 A268678

Keyword

nonn

Author

Antti Karttunen, Feb 11 2016

Status

approved