A339873 a(n) = 1 + n - A143771(n).

0, 0, 4, 0, 6, 0, 6, 8, 10, 0, 12, 0, 12, 8, 16, 0, 18, 0, 18, 20, 22, 0, 24, 24, 24, 24, 28, 0, 30, 0, 30, 32, 34, 24, 36, 0, 36, 32, 40, 0, 42, 0, 42, 44, 46, 0, 48, 48, 48, 48, 52, 0, 54, 48, 54, 56, 58, 0, 60, 0, 60, 56, 64, 60, 66, 0, 66, 68, 70, 0, 72, 0, 72, 72, 76, 72, 78, 0, 78, 80, 82, 0, 84, 84, 84, 80

Offset

2,3

Links

Antti Karttunen, Table of n, a(n) for n = 2..65539

Prog

(PARI)
A143771(n) = my(d = divisors(n)); gcd(vector(#d, k, d[k]+n/d[k])); \\ From A143771.
A339873(n) = (1+n-A143771(n));

Crossrefs

Cf. A143771, A339914.

Sequence in context: A198224 A178105 A178109 * A055672 A327964 A085562

Adjacent sequences: A339870 A339871 A339872 * A339874 A339875 A339876

Keyword

nonn

Author

Antti Karttunen, Dec 25 2020

Status

approved