A353560 -id:A353560 - cp's OEIS frontend

A373379 Lexicographically earliest infinite sequence such that a(i) = a(j) => A003415(i) = A003415(j), A085731(i) = A085731(j) and A107463(i) = A107463(j), for all i, j >= 1.

1, 2, 2, 3, 2, 4, 2, 5, 6, 7, 2, 8, 2, 9, 10, 11, 2, 12, 2, 13, 14, 15, 2, 16, 17, 18, 19, 20, 2, 21, 2, 22, 23, 24, 25, 26, 2, 27, 28, 29, 2, 30, 2, 31, 32, 33, 2, 34, 35, 36, 37, 38, 2, 39, 28, 40, 41, 42, 2, 43, 2, 44, 45, 46, 47, 48, 2, 49, 50, 51, 2, 52, 2, 53, 54, 55, 47, 56, 2, 57, 58, 59, 2, 60, 41, 61, 62, 63, 2, 64, 37, 65, 66, 67, 68, 69, 2, 70, 71, 72

Offset: 1

Antti Karttunen, Jun 03 2024

nonn

Restricted growth sequence transform of the triple [A003415(n), A085731(n), A107463(n)].
For all i, j >= 1:
  A305800(i) = A305800(j) => a(i) = a(j),
  a(i) = a(j) => A369051(i) = A369051(j),
  a(i) = a(j) => A373363(i) = A373363(j),
  a(i) = a(j) => A373364(i) = A373364(j).
Starts to differ from A300235 at n=153. - R. J. Mathar, Jun 06 2024

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

Cf. A001414, A003415, A085731, A107463, A305800, A369051, A373363, A373364.
Differs from A305895, A327931, and A353560 for the first time at n=1610, where a(1610) = 1112, while A305895(1610) = A327931(1610) = A353560(1610) = 1210.
Cf. also A373150, A373152, A373380.

up_to = 100000;
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; };
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A085731(n) = gcd(A003415(n),n);
A001414(n) = ((n=factor(n))[, 1]~*n[, 2]);
A107463(n) = if(n<=1,n,if(isprime(n),1,A001414(n)));
Aux373379(n) = [A003415(n), A085731(n), A107463(n)];
v373379 = rgs_transform(vector(up_to, n, Aux373379(n)));
A373379(n) = v373379[n];

A361021 Lexicographically earliest infinite sequence such that a(i) = a(j) => A007814(i) = A007814(j), A001065(i) = A001065(j) and A051953(i) = A051953(j), for all i, j >= 1.

Original entry on oeis.org

1, 2, 3, 4, 3, 5, 3, 6, 7, 8, 3, 9, 3, 10, 11, 12, 3, 13, 3, 14, 15, 16, 3, 17, 18, 19, 20, 21, 3, 22, 3, 23, 24, 25, 26, 27, 3, 28, 29, 30, 3, 31, 3, 32, 33, 34, 3, 35, 36, 37, 38, 39, 3, 40, 29, 41, 42, 43, 3, 44, 3, 45, 46, 47, 48, 49, 3, 50, 51, 52, 3, 53, 3, 54, 55, 56, 48, 57, 3, 58, 59, 60, 3, 61, 42, 62, 63, 64, 3, 65, 38, 66, 67, 68, 69, 70, 3, 71

Offset: 1

Antti Karttunen, Mar 03 2023

nonn

Restricted growth sequence transform of the triplet [A007814(n), A001065(n), A051953(n)].
For all i, j >= 1:
  A305801(i) = A305801(j) => a(i) = a(j),
  a(i) = a(j) => A305895(i) = A305895(j),
  a(i) = a(j) => A319346(i) = A319346(j).

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

Cf. A001065, A007814, A051953.
Cf. A305801, A305895, A319346.
Cf. also A353560.
Differs from A353520 for the first time at n=254, where a(254) = 187, while A353520(254) = 125.

up_to = 100000;
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; };
A007814(n) = valuation(n,2);
A001065(n) = (sigma(n)-n);
A051953(n) = (n-eulerphi(n));
Aux361021(n) = [A007814(n), A001065(n), A051953(n)];
v361021 = rgs_transform(vector(up_to,n,Aux361021(n)));
A361021(n) = v361021[n];

cp's OEIS Frontend

A373379 Lexicographically earliest infinite sequence such that a(i) = a(j) => A003415(i) = A003415(j), A085731(i) = A085731(j) and A107463(i) = A107463(j), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI