A320117 -id:A320117 - cp's OEIS frontend

A320115 Filter sequence for counting the residue classes mod 4 of divisors of n.

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

Offset: 1

Antti Karttunen, Oct 06 2018

nonn

Restricted growth sequence transform of A320114.
For all i, j:
  A319994(i) = A319994(j) => a(i) = a(j),
  A320004(i) = A320004(j) => a(i) = a(j),
  a(i) = a(j) => A002654(i) = A002654(j).

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

Cf. A319994, A320004, A320109, A320113, A320114, A320117.

up_to = 100000;
A320114(n) = { my(m=1); fordiv(n,d,if(d>1, m *= prime(1+(d%4)))); (m); };
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; };
v320115 = rgs_transform(vector(up_to,n,A320114(n)));
A320115(n) = v320115[n];

A320116 a(n) = Product_{d|n, d>1} prime(1+(d mod 6)).

Original entry on oeis.org

1, 5, 7, 55, 13, 70, 3, 275, 49, 715, 13, 1540, 3, 75, 637, 3025, 13, 980, 3, 39325, 147, 715, 13, 15400, 39, 75, 343, 9075, 13, 140140, 3, 15125, 637, 715, 507, 43120, 3, 75, 147, 2162875, 13, 14700, 3, 39325, 31213, 715, 13, 338800, 9, 10725, 637, 9075, 13, 13720, 507, 226875, 147, 715, 13, 30830800, 3, 75, 7203, 166375, 507, 140140, 3

Offset: 1

Antti Karttunen, Oct 06 2018

nonn

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

Cf. A320114, A320117 (rgs-transform),

Cf. also A319986.

A320116(n) = { my(m=1); fordiv(n,d,if(d>1, m *= prime(1+(d%6)))); (m); };

a(n) = Product_{d|n, d>1} prime(1+(d mod 6)).

A319986 Fully multiplicative with a(p^e) = prime(p mod 6)^e.

Original entry on oeis.org

1, 3, 5, 9, 11, 15, 2, 27, 25, 33, 11, 45, 2, 6, 55, 81, 11, 75, 2, 99, 10, 33, 11, 135, 121, 6, 125, 18, 11, 165, 2, 243, 55, 33, 22, 225, 2, 6, 10, 297, 11, 30, 2, 99, 275, 33, 11, 405, 4, 363, 55, 18, 11, 375, 121, 54, 10, 33, 11, 495, 2, 6, 50, 729, 22, 165, 2, 99, 55, 66, 11, 675, 2, 6, 605, 18, 22, 30, 2, 891, 625, 33, 11, 90, 121, 6

Offset: 1

Antti Karttunen, Oct 06 2018

For all i, j:

A319716(i) = A319716(j) => a(i) = a(j) => A319690(i) = A319690(j).

Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000

Cf. A319690, A319716, A319984, A319985, A319987, A320116, A320117.

A319986(n) = { my(f=factor(n)); prod(i=1, #f~, (prime(f[i, 1]%6))^f[i, 2]); };

A320109 Filter sequence for counting the residue classes mod 8 of divisors of n.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Oct 06 2018

nonn

Restricted growth sequence transform of A320108.

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

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

Cf. A320108, A320113, A320115, A320117.

up_to = 100000;
A320108(n) = { my(m=1); fordiv(n,d,if(d>1, m *= prime(1+(d%8)))); (m); };
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; };
v320109 = rgs_transform(vector(up_to,n,A320108(n)));
A320109(n) = v320109[n];

A320113 Filter sequence for counting the residue classes mod 12 of divisors of n.

Original entry on oeis.org

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

Offset: 1

Antti Karttunen, Oct 06 2018

nonn

Restricted growth sequence transform of A320112.
For all i, j:
  a(i) = a(j) => A320115(i) = A320115(j).
  a(i) = a(j) => A320117(i) = A320117(j).

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

Cf. A320109, A320112, A320115, A320117.

up_to = 100000;
A320112(n) = { my(m=1); fordiv(n,d,if(d>1, m *= prime(1+(d%12)))); (m); };
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; };
v320113 = rgs_transform(vector(up_to,n,A320112(n)));
A320113(n) = v320113[n];

cp's OEIS Frontend

A320115 Filter sequence for counting the residue classes mod 4 of divisors of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A320116 a(n) = Product_{d|n, d>1} prime(1+(d mod 6)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A319986 Fully multiplicative with a(p^e) = prime(p mod 6)^e.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A320109 Filter sequence for counting the residue classes mod 8 of divisors of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A320113 Filter sequence for counting the residue classes mod 12 of divisors of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI