login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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 A297307 A163238

Adjacent sequences:  A302791 A302792 A302793 * A302795 A302796 A302797

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Apr 26 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 8 06:27 EDT 2020. Contains 336290 sequences. (Running on oeis4.)