cp's OEIS Frontend

A300238 a(n) = n - A300234(n) = n - A285721(n, phi(n)).

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