A324183 -id:A324183 - cp's OEIS frontend

A324184 a(n) = sigma(A163511(n)).

1, 3, 7, 4, 15, 13, 12, 6, 31, 40, 39, 31, 28, 24, 18, 8, 63, 121, 120, 156, 91, 124, 93, 57, 60, 78, 72, 48, 42, 32, 24, 12, 127, 364, 363, 781, 280, 624, 468, 400, 195, 403, 372, 342, 217, 228, 171, 133, 124, 240, 234, 248, 168, 192, 144, 96, 90, 104, 96, 72, 56, 48, 36, 14, 255, 1093, 1092, 3906, 847, 3124, 2343, 2801, 600

Offset: 0

Antti Karttunen, Feb 17 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 0..16383
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537

Cf. A000203, A054429, A163511, A324054, A324183, A324185, A324186, A324187, A324188, A324189.

A324184(n) = if(!n,1,my(p=2,mp=p*p,m=1); while(n>1, if(n%2, p=nextprime(1+p); mp = p*p, if((2==n)||!(n%4),mp *= p,m *= (mp-1)/(p-1))); n >>= 1); (m*(mp-1)/(p-1)));

A163511(n) = if(!n,1,my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(p+1)); n >>= 1); (t*p));
A324184(n) = sigma(A163511(n));

from sympy import nextprime
def A324184(n):
    if n:
        c, p = 1, 1
        while n:
            c *= ((p:=nextprime(p))**(s:=(~n&n-1).bit_length()+1)-1)//(p-1)
            n >>= s
        return c*(p**(s+1)-1)//(p**s-1)
    return 1 # Chai Wah Wu, Jul 25 2023

a(n) = A000203(A163511(n)).

For n >= 1, a(n) = A324054(A054429(n)).

A324187 a(n) = A106315(A163511(n)).

Original entry on oeis.org

0, 1, 5, 2, 2, 1, 0, 4, 18, 28, 30, 13, 16, 12, 4, 6, 3, 42, 72, 32, 51, 78, 21, 33, 12, 36, 24, 44, 36, 20, 8, 10, 67, 2, 168, 1, 176, 504, 128, 172, 84, 10, 312, 102, 32, 198, 75, 97, 108, 120, 144, 58, 48, 72, 128, 20, 50, 66, 48, 4, 0, 36, 16, 12, 4, 731, 372, 3126, 625, 6, 785, 801, 456, 1332, 768, 1720, 540, 232, 688, 932, 145, 660

Offset: 0

Antti Karttunen, Feb 17 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 0..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537

Cf. A054429, A106315, A163511, A324057, A324183, A324184, A324188, A324189.

Cf. A324199 (positions of zeros).

A106315(n) = (n*numdiv(n) % sigma(n));
A163511(n) = if(!n,1,my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A324187(n) = A106315(A163511(n));

A324183(n) = if(!n,1,n = ((3<<#binary(n\2))-n-1); my(e=0,m=1); while(n>0, if(!(n%2), m *= (1+e); e=0, e++); n >>= 1); (m*(1+e)));
A324184(n) = if(!n,1,my(p=2,mp=p*p,m=1); while(n>1, if(n%2, p=nextprime(1+p); mp = p*p, if((2==n)||!(n%4),mp *= p,m *= (mp-1)/(p-1))); n >>= 1); (m*(mp-1)/(p-1)));
A324187(n) = ((A163511(n)*A324183(n))%A324184(n));

a(n) = A106315(A163511(n)) = (A163511(n)*A324183(n)) mod A324184(n).

For n > 0, a(n) = A324057(A054429(n)).

A324189 a(n) = A324122(A163511(n)).

Original entry on oeis.org

0, 2, 6, 2, 14, 12, 0, 4, 30, 36, 36, 30, 24, 12, 16, 6, 60, 120, 96, 152, 90, 122, 90, 54, 48, 72, 48, 44, 36, 28, 16, 10, 126, 362, 360, 780, 272, 600, 464, 396, 192, 402, 360, 336, 216, 222, 168, 132, 120, 120, 216, 246, 144, 168, 128, 92, 80, 102, 48, 68, 0, 36, 32, 12, 254, 1092, 1080, 3900, 846, 3122, 2342, 2800, 576, 2016, 1824, 2360, 1080

Offset: 0

Antti Karttunen, Feb 17 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 0..16383
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537

Cf. A163511, A324183, A324184, A324188.

Cf. A324199 (positions of zeros).

A163511(n) = if(!n,1,my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A324122(n) = (sigma(n) - gcd(sigma(n),n*numdiv(n)));
A324189(n) = A324122(A163511(n));

A324183(n) = if(!n,1,n = ((3<<#binary(n\2))-n-1); my(e=0,m=1); while(n>0, if(!(n%2), m *= (1+e); e=0, e++); n >>= 1); (m*(1+e)));
A324184(n) = if(!n,1,my(p=2,mp=p*p,m=1); while(n>1, if(n%2, p=nextprime(1+p); mp = p*p, if((2==n)||!(n%4),mp *= p,m *= (mp-1)/(p-1))); n >>= 1); (m*(mp-1)/(p-1)));
A324189(n) = (A324184(n) - gcd(A324184(n), A163511(n)*A324183(n)));

a(n) = A324184(n) - A324188(n) = A324184(n) - gcd(A324184(n),A163511(n)*A324183(n)).

A324182 a(n) = A083254(A163511(n)), where A083254(n) = 2*phi(n) - n, the Möbius transform of the deficiency of n.

Original entry on oeis.org

1, 0, 0, 1, 0, 3, -2, 3, 0, 9, -6, 15, -4, 1, -2, 5, 0, 27, -18, 75, -12, 5, -10, 35, -8, 3, -14, 13, -4, 3, -2, 9, 0, 81, -54, 375, -36, 25, -50, 245, -24, 15, -70, 91, -20, 21, -14, 99, -16, 9, -42, 65, -28, -9, -22, 43, -8, 9, -18, 25, -4, 7, -2, 11, 0, 243, -162, 1875, -108, 125, -250, 1715, -72, 75, -350, 637, -100, 147, -98, 1089

Offset: 0

Antti Karttunen, Feb 18 2019

Antti Karttunen, Table of n, a(n) for n = 0..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537

Cf. A054429, A083254, A163511, A324052, A324183, A324184, A324185 (compare the scatter plot), A366804 (rgs-transform).

Cf. also A324103.

A163511(n) = if(!n,1,my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A083254(n) = (2*eulerphi(n)-n);
A324182(n) = A083254(A163511(n));

a(n) = A083254(A163511(n)).

For n > 0, a(n) = A324052(A054429(n)).

A324188 a(n) = A324121(A163511(n)).

Original entry on oeis.org

1, 1, 1, 2, 1, 1, 12, 2, 1, 4, 3, 1, 4, 12, 2, 2, 3, 1, 24, 4, 1, 2, 3, 3, 12, 6, 24, 4, 6, 4, 8, 2, 1, 2, 3, 1, 8, 24, 4, 4, 3, 1, 12, 6, 1, 6, 3, 1, 4, 120, 18, 2, 24, 24, 16, 4, 10, 2, 48, 4, 56, 12, 4, 2, 1, 1, 12, 6, 1, 2, 1, 1, 24, 12, 48, 40, 12, 8, 16, 4, 1, 20, 3, 3, 4, 36, 6, 14, 15, 3, 36, 6, 21, 2, 3, 3, 36, 6, 720, 8, 6, 4, 24, 6, 120, 12

Offset: 0

Antti Karttunen, Feb 17 2019

nonn

Antti Karttunen, Table of n, a(n) for n = 0..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..65537

Cf. A054429, A324058, A163511, A324121, A324183, A324184, A324187, A324189.

A163511(n) = if(!n,1,my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A324121(n) = gcd(sigma(n),n*numdiv(n));
A324188(n) = A324121(A163511(n));

A324183(n) = if(!n,1,n = ((3<<#binary(n\2))-n-1); my(e=0,m=1); while(n>0, if(!(n%2), m *= (1+e); e=0, e++); n >>= 1); (m*(1+e)));
A324184(n) = if(!n,1,my(p=2,mp=p*p,m=1); while(n>1, if(n%2, p=nextprime(1+p); mp = p*p, if((2==n)||!(n%4),mp *= p,m *= (mp-1)/(p-1))); n >>= 1); (m*(mp-1)/(p-1)));
A324188(n) = gcd(A324184(n), A163511(n)*A324183(n));

a(n) = A324121(A163511(n)) = gcd(A324184(n), A163511(n)*A324183(n)).

For n > 0, a(n) = A324058(A054429(n)).

cp's OEIS Frontend

A324184 a(n) = sigma(A163511(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Python

Formula

A324187 a(n) = A106315(A163511(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Formula

A324189 a(n) = A324122(A163511(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Formula

A324182 a(n) = A083254(A163511(n)), where A083254(n) = 2*phi(n) - n, the Möbius transform of the deficiency of n.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A324188 a(n) = A324121(A163511(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Formula