A302794 Permutation of nonnegative integers: a(0) = 0; for n >= 1, a(n) = 1+A193231(A193231(n)-1), where A193231(n) is blue code of n.

0, 1, 4, 2, 6, 3, 5, 7, 10, 12, 14, 11, 15, 13, 16, 8, 18, 9, 17, 19, 20, 21, 24, 22, 27, 25, 28, 29, 30, 32, 23, 31, 34, 36, 60, 35, 39, 37, 40, 33, 48, 41, 44, 42, 46, 38, 45, 47, 51, 49, 52, 26, 54, 56, 50, 55, 58, 63, 57, 59, 53, 61, 64, 62, 66, 71, 65, 67, 94, 69, 72, 70, 75, 73, 76, 68, 78, 80, 74, 79, 88, 81, 84, 82, 86, 43

Offset

0,3

Links

Antti Karttunen, Table of n, a(n) for n = 0..16383

David Newman, et al., New sequences from old, Discussion on SeqFan-mailing list, January 2018.

Index entries for sequences related to binary expansion of n

Index entries for sequences that are permutations of the natural numbers

Formula

a(0) = 0; for n >= 1, a(n) = 1+A193231(A193231(n)-1).

Prog

(PARI)
A193231(n) = { my(x='x); subst(lift(Mod(1, 2)*subst(Pol(binary(n), x), x, 1+x)), x, 2) }; \\ From A193231
A302794(n) = if(!n, n, 1+A193231(A193231(n)-1));

Crossrefs

Cf. A302793 (inverse).

Cf. A193231.

Cf. also A268718, A302028.

Sequence in context: A202498 A143308 A246879 * A247361 A370831 A297307

Adjacent sequences: A302791 A302792 A302793 * A302795 A302796 A302797

Keyword

nonn,base

Author

Antti Karttunen, Apr 26 2018

Status

approved