|
%I #6 Mar 02 2018 22:44:49
%S 1,1,1,3,1,4,1,7,7,7,1,10,1,10,7,15,1,16,1,17,17,16,1,22,21,19,25,24,
%T 1,24,1,31,24,25,26,34,1,28,34,37,1,38,1,38,37,34,1,46,43,47,41,45,1,
%U 52,50,52,51,43,1,54,1,46,59,63,55,58,1,59,58,57,1,70,1,55,67,66,64,72,1,77,79,61,1,80,61,64,75,82,1,84,80,80,85,70,82,94,1,94
%N a(n) = n - A300234(n) = n - A285721(n, phi(n)).
%H Antti Karttunen, <a href="/A300238/b300238.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 - A300234(n) = n - A285721(n, A000010(n)).
%o (PARI)
%o A285721(n,k) = if(n==k, 0, 1 + A285721(abs(n-k),min(n,k)));
%o A300234(n) = A285721(n,eulerphi(n));
%o A300238(n) = (n - A300234(n));
%Y Cf. A000010, A285721.
%Y Cf. also A286594, A300227, A300228, A300234, A300237.
%K nonn
%O 1,4
%A _Antti Karttunen_, Mar 02 2018
|
