A340188 -id:A340188 - cp's OEIS frontend

A340187 Dirichlet inverse of A063994(x) = Product_{primes p dividing x} gcd(p-1, x-1).

1, -1, -2, 0, -4, 3, -6, 0, 2, 7, -10, -1, -12, 11, 12, 0, -16, -5, -18, -3, 20, 19, -22, 0, 12, 23, -2, -7, -28, -29, -30, 0, 36, 31, 44, 4, -36, 35, 44, 0, -40, -49, -42, -9, -24, 43, -46, 0, 30, -33, 60, -13, -52, 7, 76, 4, 68, 55, -58, 23, -60, 59, -36, 0, 80, -93, -66, -15, 84, -119, -70, -1, -72, 71, -52, -19

Offset: 1

Antti Karttunen, Dec 31 2020

sign

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

Cf. A063994, A340188, A340189.

Cf. also A023900, A340142, A340145, A340190.

up_to = 65537;
A063994(n) = { my(f=factor(n)); prod(i=1, #f~, gcd(f[i, 1]-1, n-1)); };
DirInverse(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = -sumdiv(n, d, if(dA063994(n)));
A340187(n) = v340187[n];

A340189 a(n) = n + A340187(n).

Original entry on oeis.org

2, 1, 1, 4, 1, 9, 1, 8, 11, 17, 1, 11, 1, 25, 27, 16, 1, 13, 1, 17, 41, 41, 1, 24, 37, 49, 25, 21, 1, 1, 1, 32, 69, 65, 79, 40, 1, 73, 83, 40, 1, -7, 1, 35, 21, 89, 1, 48, 79, 17, 111, 39, 1, 61, 131, 60, 125, 113, 1, 83, 1, 121, 27, 64, 145, -27, 1, 53, 153, -49, 1, 71, 1, 145, 23, 57, 193, -31, 1, 80, 83, 161, 1, 131

Offset: 1

Antti Karttunen, Dec 31 2020

sign

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

Cf. A063994, A318828, A340187, A340188.

Cf. also A318833.

up_to = 65537;
A063994(n) = { my(f=factor(n)); prod(i=1, #f~, gcd(f[i, 1]-1, n-1)); };
DirInverse(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = -sumdiv(n, d, if(dA063994(n)));
A340187(n) = v340187[n];
A340189(n) = (n+A340187(n));

a(n) = n + A340187(n).

a(n) = A340188(n) + A318828(n).

cp's OEIS Frontend

A340187 Dirichlet inverse of A063994(x) = Product_{primes p dividing x} gcd(p-1, x-1).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI