login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A302845 Permutation of nonnegative integers: a(n) = A163355(A064707(n)). 6
0, 1, 3, 2, 15, 14, 12, 13, 5, 6, 4, 7, 10, 9, 11, 8, 21, 20, 22, 23, 16, 19, 17, 18, 26, 27, 25, 24, 31, 28, 30, 29, 63, 62, 60, 61, 48, 49, 51, 50, 58, 57, 59, 56, 53, 54, 52, 55, 42, 43, 41, 40, 47, 44, 46, 45, 37, 36, 38, 39, 32, 35, 33, 34, 255, 254, 252, 253, 240, 241, 243, 242, 250, 249, 251, 248, 245, 246, 244 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
FORMULA
a(n) = A163355(A064707(n)).
a(n) = A302843(A006068(n)).
PROG
(PARI)
A006068(n)= { my(s=1, ns); while(1, ns = n >> s; if(0==ns, break()); n = bitxor(n, ns); s <<= 1; ); return (n); } \\ From A006068
A057300(n) = { my(t=1, s=0); while(n>0, if(1==(n%4), n++, if(2==(n%4), n--)); s += (n%4)*t; n >>= 2; t <<= 2); (s); };
A163355(n) = if(!n, n, my(i = (#binary(n)-1)\2, f = 4^i, d = (n\f)%4, r = (n%f)); if(((1==d)&&!(i%2))||((2==d)&&(i%2)), f+A163355(A057300(r)), if(3==d, f+f+A163355(A057300(r)), (3*f)+A163355(f-1-r))));
CROSSREFS
Cf. A302846 (inverse).
Sequence in context: A185973 A258566 A051917 * A291251 A223523 A357613
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 14 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 08:02 EDT 2024. Contains 371236 sequences. (Running on oeis4.)