0,3

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

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

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

Cf. A302793 (inverse).

Cf. A193231.

Cf. also A268718, A302028.

Sequence in context: A202498 A143308 A246879 * A247361 A297307 A163238

Adjacent sequences: A302791 A302792 A302793 * A302795 A302796 A302797

nonn,base

Antti Karttunen, Apr 26 2018

approved