Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A339873
a(n) = 1 + n - A143771(n).
4
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
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
Sequence in context: A198224 A178105 A178109 * A055672 A327964 A085562
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 25 2020
STATUS
approved