login
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.
3
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
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
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Apr 26 2018
STATUS
approved