cp's OEIS Frontend

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

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