A336391 -id:A336391 - cp's OEIS frontend

A336390 Lexicographically earliest infinite sequence such that a(i) = a(j) => A336467(i) = A336467(j) and A336158(i) = A336158(j), for all i, j >= 1.

1, 1, 2, 1, 3, 2, 2, 1, 4, 3, 3, 2, 5, 2, 6, 1, 7, 4, 8, 3, 9, 3, 3, 2, 10, 5, 11, 2, 12, 6, 2, 1, 6, 7, 6, 4, 13, 8, 14, 3, 15, 9, 16, 3, 17, 3, 3, 2, 4, 10, 18, 5, 19, 11, 18, 2, 20, 12, 12, 6, 21, 2, 22, 1, 23, 6, 24, 7, 6, 6, 7, 4, 25, 13, 26, 8, 6, 14, 8, 3, 27, 15, 15, 9, 28, 16, 29, 3, 30, 17, 14, 3, 9, 3, 29, 2, 31, 4, 17, 10, 32, 18, 33, 5, 34

Offset: 1

Antti Karttunen, Aug 10 2020

nonn

Restricted growth sequence transform of the ordered pair [A336467(n), A336158(n)].
For all i, j:
  A324400(i) = A324400(j) => A003602(i) = A003602(j) => a(i) = a(j),
  a(i) = a(j) => A331410(i) = A331410(j),
  a(i) = a(j) => A336391(i) = A336391(j).

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A003602, A324400, A336158, A336467, A336391, A336393.

Cf. also A336470.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A000265(n) = (n>>valuation(n,2));
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A336158(n) = A046523(A000265(n));
A336467(n) = { my(f=factor(n)); prod(k=1,#f~,if(2==f[k,1],1,(A000265(f[k,1]+1))^f[k,2])); };
Aux336390(n) = [A336158(n), A336467(n)];
v336390 = rgs_transform(vector(up_to, n, Aux336390(n)));
A336390(n) = v336390[n];

A347374 Lexicographically earliest infinite sequence such that a(i) = a(j) => A331410(i) = A331410(j) and A000593(i) = A000593(j), for all i, j >= 1.

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 4, 1, 5, 3, 6, 2, 7, 4, 8, 1, 9, 5, 10, 3, 11, 6, 12, 2, 13, 7, 14, 4, 15, 8, 16, 1, 17, 9, 17, 5, 18, 10, 19, 3, 20, 11, 21, 6, 22, 12, 23, 2, 24, 13, 25, 7, 26, 14, 25, 4, 27, 15, 28, 8, 29, 16, 30, 1, 31, 17, 32, 9, 33, 17, 34, 5, 35, 18, 36, 10, 33, 19, 37, 3, 38, 20, 39, 11, 40, 21, 41, 6, 42, 22, 43, 12

Offset: 1

Antti Karttunen, Aug 29 2021

nonn

Restricted growth sequence transform of the ordered pair [A000593(n), A331410(n)].

For all i, j: A003602(i) = A003602(j) => a(i) = a(j) => A347249(i) = A347249(j).

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A000593, A003602, A331410, A347249.

Cf. also A335880, A336390, A336391, A336394 for similar constructions.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A000593(n) = sigma(n>>valuation(n, 2));
A331410(n) = { my(f=factor(n)); sum(k=1,#f~,if(2==f[k,1],0,f[k,2]*(1+A331410(f[k,1]+1)))); };
Aux347374(n) = [A331410(n), A000593(n)];
v347374 = rgs_transform(vector(up_to, n, Aux347374(n)));
A347374(n) = v347374[n];

A351040 Lexicographically earliest infinite sequence such that a(i) = a(j) => A336158(i) = A336158(j), A206787(i) = A206787(j) and A336651(i) = A336651(j) for all i, j >= 1.

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 4, 1, 5, 3, 6, 2, 7, 4, 8, 1, 9, 5, 10, 3, 11, 6, 12, 2, 13, 7, 14, 4, 15, 8, 16, 1, 17, 9, 17, 5, 18, 10, 19, 3, 20, 11, 21, 6, 22, 12, 23, 2, 24, 13, 25, 7, 26, 14, 25, 4, 27, 15, 28, 8, 29, 16, 30, 1, 31, 17, 32, 9, 33, 17, 34, 5, 35, 18, 36, 10, 33, 19, 37, 3, 38, 20, 39, 11, 40, 21, 41, 6, 42

Offset: 1

Antti Karttunen, Jan 31 2022

Restricted growth sequence transform of the ordered triplet [A336158(n), A206787(n), A336651(n)].
For all i, j >= 1:
  A003602(i) = A003602(j) => a(i) = a(j),
  a(i) = a(j) => A336390(i) = A336390(j) => A336391(i) = A336391(j),
  a(i) = a(j) => A347374(i) = A347374(j),
  a(i) = a(j) => A351036(i) = A351036(j) => A113415(i) = A113415(j),
  a(i) = a(j) => A351461(i) = A351461(j).
From Antti Karttunen, Nov 23 2023: (Start)
Conjectured to be equal to the lexicographically earliest infinite sequence such that b(i) = b(j) => A000593(i) = A000593(j), A336158(i) = A336158(j) and A336467(i) = A336467(j), for all i, j >= 1 (this was the original definition). In any case it holds that a(i) = a(j) => b(i) = b(j) for all i, j >= 1. See comment in A351461.
(End)

Antti Karttunen, Table of n, a(n) for n = 1..65539

Cf. A000265, A000593, A336158, A336467.
Cf. also A003602, A336390, A336391, A351037, A366891.
Differs from A347374 for the first time at n=103, where a(103) = 48, while A347374(103) = 30.
Differs from A351035 for the first time at n=175, where a(175) = 80, while A351035(175) = 78.
Differs from A351036 for the first time at n=637, where a(637) = 272, while A351036(637) = 261.

up_to = 65539;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A000265(n) = (n>>valuation(n,2));
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };
A336158(n) = A046523(A000265(n));
A206787(n) = sumdiv(n, d, d*(d % 2)*issquarefree(d));
A336651(n) = { my(f=factor(n)); prod(i=1, #f~, if(2==f[i,1],1,f[i,1]^(f[i,2]-1))); };
Aux351040(n) = [A336158(n), A206787(n), A336651(n)];
v351040 = rgs_transform(vector(up_to, n, Aux351040(n)));
A351040(n) = v351040[n];

Original definition moved to the comment section and replaced with a definition that is at least as encompassing, and conjectured to be equal to the original one. - Antti Karttunen, Nov 23 2023

A336392 Lexicographically earliest infinite sequence such that a(i) = a(j) => A278222(i) = A278222(j) and A336467(i) = A336467(j), for all i, j >= 1.

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 4, 1, 5, 3, 6, 2, 7, 4, 8, 1, 9, 5, 10, 3, 11, 6, 12, 2, 13, 7, 14, 4, 15, 8, 16, 1, 3, 9, 6, 5, 17, 10, 18, 3, 19, 11, 20, 6, 21, 12, 22, 2, 23, 13, 24, 7, 25, 14, 26, 4, 27, 15, 28, 8, 29, 16, 30, 1, 31, 3, 32, 9, 33, 6, 34, 5, 35, 17, 36, 10, 21, 18, 37, 3, 11, 19, 38, 11, 39, 20, 40, 6, 41, 21, 42, 12, 43, 22, 44, 2, 45, 23, 46, 13

Offset: 1

Antti Karttunen, Aug 10 2020

nonn

Restricted growth sequence transform of the ordered pair [A278222(n), A336467(n)].

For all i, j: A324400(i) = A324400(j) => A003602(i) = A003602(j) => a(i) = a(j).

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A003602, A278222, A324400, A336390, A336391, A336394, A336467.

Cf. also A286622, A336472.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A278222(n) = A046523(A005940(1+n));
A000265(n) = (n>>valuation(n,2));
A336467(n) = { my(f=factor(n)); prod(k=1,#f~,if(2==f[k,1],1,(A000265(f[k,1]+1))^f[k,2])); };
Aux336392(n) = [A278222(n), A336467(n)];
v336392 = rgs_transform(vector(up_to, n, Aux336392(n)));
A336392(n) = v336392[n];

A336920 Lexicographically earliest infinite sequence such that a(i) = a(j) => f(i) = f(j), where f(n) = [A329697(n), A331410(n), A336158(n)], for all i, j >= 1.

Original entry on oeis.org

1, 1, 2, 1, 3, 2, 4, 1, 5, 3, 6, 2, 6, 4, 7, 1, 8, 5, 9, 3, 10, 6, 11, 2, 12, 6, 13, 4, 14, 7, 15, 1, 16, 8, 16, 5, 14, 9, 16, 3, 17, 10, 18, 6, 19, 11, 20, 2, 21, 12, 22, 6, 14, 13, 23, 4, 24, 14, 25, 7, 11, 15, 26, 1, 23, 16, 25, 8, 27, 16, 18, 5, 28, 14, 29, 9, 27, 16, 18, 3, 30, 17, 9, 10, 31, 18, 32, 6, 28, 19, 27, 11, 33, 20, 32, 2, 17, 21, 34, 12, 28, 22, 9, 6, 35

Offset: 1

Antti Karttunen, Aug 10 2020

nonn

Restricted growth sequence transform of the triplet [A329697(n), A331410(n), A336158(n)].
For all i, j:
  A324400(i) = A324400(j) => A003602(i) = A003602(j) => a(i) = a(j),
  a(i) = a(j) => A335880(i) = A335880(j),
  a(i) = a(j) => A336391(i) = A336391(j),
  a(i) = a(j) => A336471(i) = A336471(j).

Antti Karttunen, Table of n, a(n) for n = 1..65537

Cf. A000265, A003602, A324400, A329697, A331410, A335880, A336391, A336471.

up_to = 65537;
rgs_transform(invec) = { my(om = Map(), outvec = vector(length(invec)), u=1); for(i=1, length(invec), if(mapisdefined(om,invec[i]), my(pp = mapget(om, invec[i])); outvec[i] = outvec[pp] , mapput(om,invec[i],i); outvec[i] = u; u++ )); outvec; };
A000265(n) = (n>>valuation(n,2));
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A336158(n) = A046523(A000265(n));
A329697(n) = if(!bitand(n,n-1),0,1+A329697(n-(n/vecmax(factor(n)[, 1]))));
A331410(n) = if(!bitand(n,n-1),0,1+A331410(n+(n/vecmax(factor(n)[, 1]))));
Aux336920(n) = [A329697(n), A331410(n), A336158(n)];
v336920 = rgs_transform(vector(up_to, n, Aux336920(n)));
A336920(n) = v336920[n];

cp's OEIS Frontend

A336390 Lexicographically earliest infinite sequence such that a(i) = a(j) => A336467(i) = A336467(j) and A336158(i) = A336158(j), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A347374 Lexicographically earliest infinite sequence such that a(i) = a(j) => A331410(i) = A331410(j) and A000593(i) = A000593(j), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A351040 Lexicographically earliest infinite sequence such that a(i) = a(j) => A336158(i) = A336158(j), A206787(i) = A206787(j) and A336651(i) = A336651(j) for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Extensions

A336392 Lexicographically earliest infinite sequence such that a(i) = a(j) => A278222(i) = A278222(j) and A336467(i) = A336467(j), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A336920 Lexicographically earliest infinite sequence such that a(i) = a(j) => f(i) = f(j), where f(n) = [A329697(n), A331410(n), A336158(n)], for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI