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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A332811 a(n) = A243071(A332808(n)). 4
 0, 1, 3, 2, 7, 6, 15, 4, 5, 14, 63, 12, 31, 30, 13, 8, 127, 10, 255, 28, 29, 126, 1023, 24, 11, 62, 9, 60, 511, 26, 4095, 16, 125, 254, 27, 20, 2047, 510, 61, 56, 8191, 58, 16383, 252, 25, 2046, 65535, 48, 23, 22, 253, 124, 32767, 18, 123, 120, 509, 1022, 262143, 52, 131071, 8190, 57, 32, 59, 250, 1048575, 508, 2045, 54, 4194303, 40, 524287, 4094, 21 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS Antti Karttunen, Table of n, a(n) for n = 1..16384 Index entries for sequences that are permutations of the natural numbers FORMULA a(n) = A243071(A332808(n)). For n > 1, a(n) = A054429(A332816(n)). a(n) = A332895(n) + A332896(n). a(n) = A332895(n) OR A332896(n) = A332895(n) XOR A332896(n). A000120(a(n)) = A332899(n). PROG (PARI) up_to = 26927; A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)}; A243071(n) = if(n<=2, n-1, if(!(n%2), 2*A243071(n/2), 1+(2*A243071(A064989(n))))); A332806list(up_to) = { my(v=vector(2), xs=Map(), lista=List([]), p, q, u); v[2] = 3; v[1] = 5; mapput(xs, 1, 1); mapput(xs, 2, 2); mapput(xs, 3, 3); for(n=4, up_to, p = v[2-(n%2)]; q = nextprime(1+p); while(q%4 != p%4, q=nextprime(1+q)); v[2-(n%2)] = q; mapput(xs, primepi(q), n)); for(i=1, oo, if(!mapisdefined(xs, i, &u), return(Vec(lista)), listput(lista, prime(u)))); }; v332806 = A332806list(up_to); A332806(n) = v332806[n]; A332808(n) = { my(f=factor(n)); f[, 1] = apply(A332806, apply(primepi, f[, 1])); factorback(f); }; A332811(n) = A243071(A332808(n)); CROSSREFS Cf. A332817 (inverse permutation). Cf. A054429, A243071, A332808, A332816, A332895, A332896, A332899. Cf. also A332215. Sequence in context: A269386 A252756 A243071 * A286556 A243354 A362558 Adjacent sequences: A332808 A332809 A332810 * A332812 A332813 A332814 KEYWORD nonn AUTHOR Antti Karttunen, Mar 05 2020 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.

Last modified April 24 04:14 EDT 2024. Contains 371918 sequences. (Running on oeis4.)