A126865 -id:A126865 - cp's OEIS frontend

A348928 a(n) = gcd(n, A003958(n)), where A003958 is multiplicative with a(p^e) = (p-1)^e.

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 4, 3, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 4, 1, 2, 3, 4, 1, 6, 1, 2, 1, 2, 1, 2, 1, 2, 1, 4, 1, 2, 5, 2, 3, 2, 1, 4, 1, 2, 3, 1, 1, 2, 1, 4, 1, 2, 1, 4, 1, 2, 1, 2, 1, 6, 1, 4, 1, 2, 1, 12, 1, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 1, 4, 1, 2, 1, 4, 3

Offset: 1

Antti Karttunen, Nov 07 2021

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

Cf. A003958, A085731, A126865, A322582, A348929, A348998 [= a(A276086(n))].

Differs from similar A126864 for the first time at n=36, where a(36) = 4, while A126864(36) = 2.

f[p_, e_] := (p - 1)^e; a[n_] := GCD[n, Times @@ f @@@ FactorInteger[n]]; Array[a, 100] (* Amiram Eldar, Nov 07 2021 *)

A003958(n) = if(1==n,n,my(f=factor(n)); for(i=1,#f~,f[i,1]--); factorback(f));
A348928(n) = gcd(n, A003958(n));

a(n) = gcd(n, A003958(n)) = gcd(n, A322582(n)) = gcd(A003958(n), A322582(n)).

A348929 a(n) = gcd(n, A003959(n)), where A003959 is multiplicative with a(p^e) = (p+1)^e.

Original entry on oeis.org

1, 1, 1, 1, 1, 6, 1, 1, 1, 2, 1, 12, 1, 2, 3, 1, 1, 6, 1, 2, 1, 2, 1, 12, 1, 2, 1, 4, 1, 6, 1, 1, 3, 2, 1, 36, 1, 2, 1, 2, 1, 6, 1, 4, 3, 2, 1, 12, 1, 2, 3, 2, 1, 6, 1, 8, 1, 2, 1, 12, 1, 2, 1, 1, 1, 6, 1, 2, 3, 2, 1, 72, 1, 2, 3, 4, 1, 6, 1, 2, 1, 2, 1, 12, 1, 2, 3, 4, 1, 18, 7, 4, 1, 2, 5, 12, 1, 2, 3, 4, 1, 6, 1, 2, 3

Offset: 1

Antti Karttunen, Nov 07 2021

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

Cf. A003959, A085731, A126865, A323166, A348507, A348928, A348999 [= a(A276086(n))].

Differs from similar A126795 for the first time at n=36, where a(36) = 36, while A126795(36) = 12.

f[p_, e_] := (p + 1)^e; a[n_] := GCD[n, Times @@ f @@@ FactorInteger[n]]; Array[a, 100] (* Amiram Eldar, Nov 07 2021 *)

A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A348929(n) = gcd(n, A003959(n));

a(n) = gcd(n, A003959(n)) = gcd(n, A348507(n)) = gcd(A003959(n), A348507(n)).

A323406 Greatest common divisor of Product (p_i^e_i)-1 and Product (p_i^e_i)+1, when n = Product (p_i^e_i): a(n) = gcd(A047994(n), A034448(n)).

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 6, 8, 1, 2, 2, 2, 6, 4, 2, 2, 2, 2, 6, 2, 2, 2, 8, 2, 1, 4, 2, 24, 2, 2, 6, 8, 2, 2, 12, 2, 30, 4, 2, 2, 2, 2, 6, 8, 2, 2, 2, 8, 6, 4, 2, 2, 24, 2, 6, 16, 1, 12, 4, 2, 6, 4, 24, 2, 2, 2, 6, 8, 2, 12, 24, 2, 6, 2, 2, 2, 4, 4, 6, 8, 2, 2, 4, 8, 6, 4, 2, 24, 2, 2, 6, 40, 2, 2, 8, 2, 42, 48

Offset: 1

Antti Karttunen, Jan 15 2019

nonn

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

Cf. A034448, A047994.

Cf. also A009223, A066086, A126865, A322362, A323166, A323409.

A047994(n) = { my(f=factor(n)~); prod(i=1, #f, f[1, i]^f[2, i]-1); };
A034448(n) = { my(f=factor(n)); prod(k=1, #f~, 1+(f[k, 1]^f[k, 2])); }; \\ After code in A034448
A323406(n) = gcd(A034448(n), A047994(n));

a(n) = gcd(A034448(n), A047994(n)), where A034448 is unitary sigma, and A047994 is unitary phi.

cp's OEIS Frontend

A348928 a(n) = gcd(n, A003958(n)), where A003958 is multiplicative with a(p^e) = (p-1)^e.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A348929 a(n) = gcd(n, A003959(n)), where A003959 is multiplicative with a(p^e) = (p+1)^e.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A323406 Greatest common divisor of Product (p_i^e_i)-1 and Product (p_i^e_i)+1, when n = Product (p_i^e_i): a(n) = gcd(A047994(n), A034448(n)).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula