A340083 a(n) = (n-1) / gcd(n-1, A003958(n)).

0, 1, 1, 3, 1, 5, 1, 7, 2, 9, 1, 11, 1, 13, 7, 15, 1, 17, 1, 19, 5, 21, 1, 23, 3, 25, 13, 9, 1, 29, 1, 31, 8, 33, 17, 35, 1, 37, 19, 39, 1, 41, 1, 43, 11, 45, 1, 47, 4, 49, 25, 17, 1, 53, 27, 55, 14, 57, 1, 59, 1, 61, 31, 63, 4, 13, 1, 67, 17, 23, 1, 71, 1, 73, 37, 25, 19, 77, 1, 79, 5, 81, 1, 83, 21, 85, 43, 87, 1, 89, 5, 91, 23

Offset: 1

Author

Antti Karttunen, Dec 28 2020

Keywords

• nonn

Links

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

Crossrefs

Cf. A003958, A340081, A340082.

Cf. also A160596, A340073.

Programs

PARI

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

Formula

a(n) = (n-1) / A340081(n) = (n-1) / gcd(n-1, A003958(n)).