login
A300237
a(n) = n - A286594(n) = n - A285721(n, sigma(n)).
6
1, 0, 0, 0, 0, 5, 0, 0, 3, 5, 0, 8, 0, 9, 11, 0, 0, 11, 0, 9, 9, 16, 0, 21, 15, 20, 12, 27, 0, 25, 0, 0, 26, 27, 26, 23, 0, 31, 30, 35, 0, 36, 0, 33, 38, 38, 0, 41, 35, 36, 44, 41, 0, 47, 44, 48, 42, 49, 0, 54, 0, 53, 51, 0, 55, 58, 0, 57, 61, 50, 0, 63, 0, 64, 62, 67, 54, 69, 0, 63, 39, 71, 0, 80, 74, 75, 79, 65, 0, 85, 84, 83, 77, 82, 87, 90, 0, 81
OFFSET
1,6
FORMULA
a(n) = n - A286594(n) = n - A285721(n, A000203(n)).
PROG
(PARI)
A285721(n, k) = if(n==k, 0, 1 + A285721(abs(n-k), min(n, k)));
A286594(n) = A285721(n, sigma(n));
A300237(n) = (n - A286594(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 02 2018
STATUS
approved