A291757 -id:A291757 - cp's OEIS frontend

A295300 Lexicographically earliest sequence such that a(i) = a(j) => f(i) = f(j), where f(n) = [A003557(n), A046523(n), A048250(n)].

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

Offset: 1

Antti Karttunen, Nov 19 2017

nonn

Restricted growth sequence transform of A291752.
For all i, j:
  a(i) = a(j) => A291751(i) = A291751(j),
  a(i) = a(j) => A326199(i) = A326199(j) => A294877(i) = A294877(j),
  a(i) = a(j) => A322021(i) = A322021(j),
  a(i) = a(j) => A295888(i) = A295888(j),
  a(i) = a(j) => A296090(i) = A296090(j).

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

Cf. A003557, A046523, A048250, A101296, A286360, A291750, A291751, A291752, A291757, A291758, A295888, A296090, A322021, A326199.

Cf. also A305801, A305900, A323368, A324400.

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; };
A003557(n) = n/factorback(factor(n)[, 1]); \\ From A003557
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
A048250(n) = if(n<1, 0, sumdiv(n, d, if(core(d)==d, d)));
A291750(n) = (1/2)*(2 + ((A003557(n)+A048250(n))^2) - A003557(n) - 3*A048250(n));
Aux295300(n) = (1/2)*(2 + ((A046523(n) + A291750(n))^2) - A046523(n) - 3*A291750(n));
v295300 = rgs_transform(vector(up_to,n,Aux295300(n)));
A295300(n) = v295300[n];

Name changed and the comments section added by Antti Karttunen, Jul 13 2019

A294877 Lexicographically earliest such sequence a that a(i) = a(j) => A003557(i) = A003557(j) and A046523(i) = A046523(j), for all i, j.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Nov 11 2017

nonn

Restricted growth sequence transform of A291757, which means that this is the lexicographically least sequence a, such that for all i, j: a(i) = a(j) <=> A291757(i) = A291757(j) <=> A003557(i) = A003557(j) and A046523(i) = A046523(j). That this is equal to the definition given in the title follows because any such lexicographically least sequence satisfying relation <=> is also the least sequence satisfying relation => with the same parameters.
Also the restricted growth sequence transform of A294876, Product_{d|n, d>1} prime(gcd(d,n/d)). (This was the original definition).
For all i, j:
  A295300(i) = A295300(j) => a(i) = a(j),
  A319347(i) = A319347(j) => a(i) = a(j),
  a(i) = a(j) => A055155(i) = A055155(j).

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

Cf. also A291751, A291757, A294876, A295300, A295888, A319347, A322021.

Cf. A000188, A055155, A294897, A295666, A322020 (a few of the matched sequences).

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; };
A294876(n) = { my(m=1); fordiv(n,d,if(d>1, m *= prime(gcd(d,n/d)))); m; };
v294877 = rgs_transform(vector(up_to,n,A294876(n)));
A294877(n) = v294877[n];

A003557(n) = n/factorback(factor(n)[, 1]); \\ From A003557
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ From A046523
v294877 = rgs_transform(vector(up_to,n,[A003557(n),A046523(n)]));
A294877(n) = v294877[n]; \\ Antti Karttunen, Nov 28 2018

Name changed and comments added by Antti Karttunen, Nov 28 2018

A291756 Compound filter: a(n) = P(A003557(n), A000010(n)), where P(n,k) is sequence A000027 used as a pairing function.

Original entry on oeis.org

1, 1, 2, 5, 7, 2, 16, 25, 31, 7, 46, 12, 67, 16, 29, 113, 121, 31, 154, 38, 67, 46, 232, 59, 281, 67, 334, 80, 379, 29, 436, 481, 191, 121, 277, 142, 631, 154, 277, 175, 781, 67, 862, 212, 328, 232, 1036, 261, 1135, 281, 497, 302, 1327, 334, 781, 355, 631, 379, 1654, 138, 1771, 436, 706, 1985, 1129, 191, 2146, 530, 947, 277, 2416, 607, 2557, 631, 951, 668, 1771

Offset: 1

Antti Karttunen, Sep 10 2017

nonn

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

Cf. A000010, A000027, A003557, A291757, A291764.

A000010(n) = eulerphi(n);
A003557(n) = n/factorback(factor(n)[, 1]); \\ This function from Charles R Greathouse IV, Nov 17 2014
A291756(n) = (1/2)*(2 + ((A003557(n)+A000010(n))^2) - A003557(n) - 3*A000010(n));

a(n) = (1/2)*(2 + ((A003557(n)+A000010(n))^2) - A003557(n) - 3*A000010(n)).

A291758 Compound filter (prime signature of n & sum of squarefree divisors of n): a(n) = P(A046523(n), A048250(n)), where P(n,k) is sequence A000027 used as a pairing function.

Original entry on oeis.org

1, 8, 12, 19, 23, 142, 38, 53, 25, 259, 80, 265, 107, 412, 412, 169, 173, 265, 212, 418, 672, 826, 302, 619, 40, 1087, 63, 607, 467, 5080, 530, 593, 1384, 1717, 1384, 1117, 743, 2086, 1836, 844, 905, 7780, 992, 1093, 607, 2932, 1178, 1759, 59, 418, 2932, 1390, 1487, 619, 2932, 1105, 3576, 4471, 1832, 8575, 1955, 5056, 915, 2209, 3922, 14908, 2348, 2092, 5056

Offset: 1

Antti Karttunen, Sep 10 2017

nonn

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

Cf. A000027, A046523, A048250, A291750, A291752, A291757.

A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };  \\ This function from Charles R Greathouse IV, Aug 17 2011
A048250(n) = if(n<1, 0, sumdiv(n, d, if(core(d)==d, d)));
A291758(n) = (1/2)*(2 + ((A046523(n)+A048250(n))^2) - A046523(n) - 3*A048250(n));

a(n) = (1/2)*(2 + ((A046523(n)+A048250(n))^2) - A046523(n) - 3*A048250(n)).

A319347 Filter sequence combining A000035(n) (parity of n), A003557(n), and A046523(n) (prime signature of n).

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Sep 24 2018

nonn

Restricted growth sequence transform of triple [A000035(n), A003557(n), A046523(n)], or equally, of triple [A007814(n), A003557(n), A046523(n)], or equally, of ordered pair [A000035(n), A291757(n)].

For all i, j: A305801(i) = A305801(j) => a(i) = a(j) => A305891(i) = A305891(j).

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

Cf. A000035, A003557, A007814, A046523, A291757, A305801, A305891.

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; };
A003557(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 2] = f[i, 2]-1); factorback(f); };
A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p=0); prod(i=1, #f, (p=nextprime(p+1))^f[i]); };
v319347 = rgs_transform(vector(up_to,n,[A003557(n),(n%2),A046523(n)]));
A319347(n) = v319347[n];

A292587 Compound filter: a(n) = P(A001221(n), A292582(n)), where P(n,k) is sequence A000027 used as a pairing function.

Original entry on oeis.org

0, 1, 1, 2, 1, 3, 1, 4, 2, 3, 1, 5, 1, 3, 3, 7, 1, 5, 1, 5, 3, 3, 1, 8, 2, 3, 4, 5, 1, 6, 1, 11, 3, 3, 3, 23, 1, 3, 3, 8, 1, 6, 1, 5, 5, 3, 1, 12, 2, 5, 3, 5, 1, 8, 3, 8, 3, 3, 1, 9, 1, 3, 5, 22, 3, 6, 1, 5, 3, 6, 1, 38, 1, 3, 5, 5, 3, 6, 1, 12, 7, 3, 1, 9, 3, 3, 3, 8, 1, 9, 3, 5, 3, 3, 3, 17, 1, 5, 5, 23, 1, 6, 1, 8, 6

Offset: 1

Antti Karttunen, Sep 26 2017

This is essentially also a filter constructed from the runlengths of numbers of the form 4k+0 and the runlengths of numbers of the form 4k+2 encountered in trajectories of A005940-tree. See comments in A083399 and A292586.
For all i, j: A291757(i) = A291757(j) => a(i) = a(j), that is, this filter matches to a subset of the sequences matched by filter A291757.
Moreover, for all i, j: a(i) = a(j) <=> A101296(i) = A101296(j), thus the subset is exactly the sequences matched by A101296 (A046523). This follows because the prime signature of n can be recovered from the two components as A046523(n) = A046523(A003557(n)) * A292586(n) and also vice versa as A046523(A003557(n)) = A003557(A046523(n)).

Antti Karttunen, Table of n, a(n) for n = 1..16384
Index entries for sequences computed from exponents in factorization of n

Cf. A000027, A001221, A003557, A005940, A046523, A101296, A291757, A292582, A292584, A292586, A292588.

a(n) = (1/2)*(2 + ((A001221(n) + A292582(n))^2) - A001221(n) - 3*A292582(n)).

cp's OEIS Frontend

A295300 Lexicographically earliest sequence such that a(i) = a(j) => f(i) = f(j), where f(n) = [A003557(n), A046523(n), A048250(n)].

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Extensions

A294877 Lexicographically earliest such sequence a that a(i) = a(j) => A003557(i) = A003557(j) and A046523(i) = A046523(j), for all i, j.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

PARI

Extensions

A291756 Compound filter: a(n) = P(A003557(n), A000010(n)), where P(n,k) is sequence A000027 used as a pairing function.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A291758 Compound filter (prime signature of n & sum of squarefree divisors of n): a(n) = P(A046523(n), A048250(n)), where P(n,k) is sequence A000027 used as a pairing function.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A319347 Filter sequence combining A000035(n) (parity of n), A003557(n), and A046523(n) (prime signature of n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A292587 Compound filter: a(n) = P(A001221(n), A292582(n)), where P(n,k) is sequence A000027 used as a pairing function.

Views

Author

Keywords

Comments

Links

Crossrefs

Formula