|
| |
|
|
A243288
|
|
Permutation of natural numbers: a(1)=1, a(2n) = A102750(a(n)), a(2n+1) = A070003(a(n)).
|
|
14
|
|
|
|
1, 2, 4, 3, 8, 6, 16, 5, 9, 12, 32, 10, 25, 22, 81, 7, 18, 13, 36, 17, 54, 42, 242, 14, 49, 34, 150, 30, 128, 99, 882, 11, 27, 24, 100, 19, 64, 46, 256, 23, 98, 68, 490, 55, 338, 279, 4624, 20, 72, 62, 432, 44, 245, 178, 2209, 40, 216, 154, 1800, 119, 1200, 966
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
This is an instance of "entanglement permutation", where two pairs of complementary subsets of natural numbers are interweaved with each other. In this case complementary pair odd/even numbers (A005408/A005843) is entangled with complementary pair A070003/A102750 (numbers which are divisible/not divisible by the square of their largest prime factor).
Thus this shares with the permutation A122111 the property that each even number is mapped to an unique term of A102750 and each odd number (larger than 1) to an unique term of A070003.
|
|
|
LINKS
|
Antti Karttunen, Table of n, a(n) for n = 1..94
Index entries for sequences that are permutations of the natural numbers
|
|
|
FORMULA
|
a(1)=1, and for n>1, if n=2k, a(n) = A102750(a(k)), otherwise, when n = 2k+1, a(n) = A070003(a(k)).
|
|
|
PROG
|
(Scheme, with Antti Karttunen's IntSeq-library)
(definec (A243288 n) (cond ((<= n 1) n) ((even? n) (A102750 (A243288 (/ n 2)))) (else (A070003 (A243288 (/ (- n 1) 2))))))
|
|
|
CROSSREFS
|
Inverse of A243287.
Cf. A005843, A005408, A070003, A102750, A243282, A243285, A241917, A122111.
Similarly constructed permutations: A243343-A243346, A135141-A227413, A237126-A237427, A193231.
Sequence in context: A243345 A297499 A243287 * A279352 A279351 A122111
Adjacent sequences: A243285 A243286 A243287 * A243289 A243290 A243291
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Antti Karttunen, Jun 02 2014
|
|
|
STATUS
|
approved
|
| |
|
|
