%I #6 Mar 02 2018 22:44:42
%S 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,
%T 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,
%U 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
%N a(n) = n - A286594(n) = n - A285721(n, sigma(n)).
%H Antti Karttunen, <a href="/A300237/b300237.txt">Table of n, a(n) for n = 1..65537</a>
%H Antti Karttunen, <a href="/A286594/a286594.txt">Scheme (Racket) program to compute this sequence</a>
%F a(n) = n - A286594(n) = n - A285721(n, A000203(n)).
%o (PARI)
%o A285721(n,k) = if(n==k, 0, 1 + A285721(abs(n-k),min(n,k)));
%o A286594(n) = A285721(n,sigma(n));
%o A300237(n) = (n - A286594(n));
%Y Cf. A000203, A285721, A286594.
%Y Cf. also A300227, A300228, A300234, A300238.
%K nonn
%O 1,6
%A _Antti Karttunen_, Mar 02 2018
|