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

Author

Antti Karttunen, Apr 26 2018

Keywords

• nonn
• base

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

Crossrefs

Cf. A302793 (inverse).

Cf. A193231.

Cf. also A268718, A302028.

Programs

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));

Formula

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