A300237 a(n) = n - A286594(n) = n - A285721(n, sigma(n)).

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

Links

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

Antti Karttunen, Scheme (Racket) program to compute this sequence

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

Cf. A000203, A285721, A286594.

Cf. also A300227, A300228, A300234, A300238.

Sequence in context: A099224 A136598 A193524 * A105077 A073231 A099223

Adjacent sequences: A300234 A300235 A300236 * A300238 A300239 A300240

Keyword

nonn

Author

Antti Karttunen, Mar 02 2018

Status

approved