A374131 -id:A374131 - cp's OEIS frontend

A374040 Lexicographically earliest infinite sequence such that a(i) = a(j) => f(i) = f(j), where f(n) = [A003415(n), A085731(n), A007814(n), A007949(n)], for all i, j >= 1.

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

Offset: 1

Antti Karttunen, Jul 01 2024

nonn

Restricted growth sequence transform of the quadruple [A003415(n), A085731(n), A007814(n), A007949(n)].
For all i, j >= 1:
  A305900(i) = A305900(j) => a(i) = a(j),
  a(i) = a(j) => A322026(i) = A322026(j),
  a(i) = a(j) => A369051(i) = A369051(j) => A083345(i) = A083345(j),
  a(i) = a(j) => b(i) = b(j), where b can be any of the sequences listed at the crossrefs-section, under "some of the other matched sequences".

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

Cf. A003415, A007814, A007949, A085731.
Some of the other matched sequences (see comments): A083345, A359430, A369001, A369004, A369643, A369658, A373143, A373474, A373483.
Cf. also A322026, A353521, A369051, A373268, A372573, A374131 for similar and related constructions.
Differs from A305900 first at n=77, where a(77) = 50, while A305900(77) = 59.

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]));
Aux374040(n) = { my(d=A003415(n)); [d, gcd(n,d), valuation(n,2), valuation(n,3)]; };
v374040 = rgs_transform(vector(up_to, n, Aux374040(n)));
A374040(n) = v374040[n];

A374211 Lexicographically earliest infinite sequence such that for all i, j >= 1, a(i) = a(j) => f(i) = f(j), with f(1) = 1, and for n > 1, f(n) = [A278226(A328768(n)), A374212(n), A374213(n)], where A328768 is the first primorial based variant of the arithmetic derivative, and A374212 and A374213 are its 2- and 3-adic valuations.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Jun 30 2024

nonn

Restricted growth sequence transform of the function f given in the definition.
For all i, j >= 1:
  A305900(i) = A305900(j) => a(i) = a(j),
  a(i) = a(j) => A152822(i) = A152822(j),
  a(i) = a(j) => A373982(i) = A373982(j) => A328771(i) = A328771(j),
  a(i) = a(j) => A373991(i) = A373991(j).

Antti Karttunen, Table of n, a(n) for n = 1..100000
Index entries for sequences related to primorial numbers

Cf. A002110, A278226, A328768, A374212, A374213.
Cf. A305900, A152822, A328771, A373982, A373991.
Cf. also A374131.

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; };
A002110(n) = prod(i=1,n,prime(i));
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A278226(n) = A046523(A276086(n));
A328768(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*A002110(primepi(f[i,1])-1)/f[i, 1]));
Aux374211(n) = if(1==n, n, my(u=A328768(n)); [A278226(u), valuation(u, 2), valuation(u, 3)]);
v374211 = rgs_transform(vector(up_to, n, Aux374211(n)));
A374211(n) = v374211[n];

A374480 Lexicographically earliest infinite sequence such that a(i) = a(j) => A083345(i) = A083345(j) and A343223(i) = A343223(j), for all i, j >= 1.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Aug 06 2024

nonn

Restricted growth sequence transform of the ordered pair [A083345(n), A343223(n)].

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

Cf. A003415, A083345, A342926, A343223.

Cf. also A305800, A373151, A374131.

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; };
A083345(n) = { my(f=factor(n)); numerator(vecsum(vector(#f~, i, f[i, 2]/f[i, 1]))); };
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A342926(n) = (A003415(sigma(n))-n);
A343223(n) = gcd(A003415(n), A342926(n));
Aux374480(n) = [A083345(n), A343223(n)];
v374480 = rgs_transform(vector(up_to, n, Aux374480(n)));
A374480(n) = v374480[n];

cp's OEIS Frontend

A374040 Lexicographically earliest infinite sequence such that a(i) = a(j) => f(i) = f(j), where f(n) = [A003415(n), A085731(n), A007814(n), A007949(n)], for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A374480 Lexicographically earliest infinite sequence such that a(i) = a(j) => A083345(i) = A083345(j) and A343223(i) = A343223(j), for all i, j >= 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI