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

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

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) = A193231(1+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
A302793(n) = if(!n, n, A193231(1+A193231(n-1)));

Crossrefs

Cf. A302794 (inverse).

Cf. A193231, A302795.

Cf. also A268717, A302027.

Sequence in context: A198099 A016657 A372143 * A010782 A333111 A139584

Adjacent sequences: A302790 A302791 A302792 * A302794 A302795 A302796

Keyword

nonn,base

Author

Antti Karttunen, Apr 26 2018

Status

approved