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

1, 1, 2, 1, 4, 1, 6, 1, 4, 1, 10, 1, 12, 1, 2, 1, 16, 1, 18, 1, 4, 1, 22, 1, 8, 1, 2, 3, 28, 1, 30, 1, 4, 1, 2, 1, 36, 1, 2, 1, 40, 1, 42, 1, 4, 1, 46, 1, 12, 1, 2, 3, 52, 1, 2, 1, 4, 1, 58, 1, 60, 1, 2, 1, 16, 5, 66, 1, 4, 3, 70, 1, 72, 1, 2, 3, 4, 1, 78, 1, 16, 1, 82, 1, 4, 1, 2, 1, 88, 1, 18, 1, 4, 1, 2, 1, 96, 1, 2, 1, 100

Offset

1,3

Links

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

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

Formula

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

a(n) = A003958(n) / A340082(n).

For n > 1, a(n) = (n-1) / A340083(n).

Prog

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

Crossrefs

Cf. A003958, A340082, A340083.

Cf. also A049559, A340071.

Sequence in context: A257022 A214721 A324384 * A346467 A329641 A329638

Adjacent sequences: A340078 A340079 A340080 * A340082 A340083 A340084

Keyword

nonn

Author

Antti Karttunen, Dec 28 2020

Status

approved