cp's OEIS Frontend

A318516 a(n) = A032742(n) OR n-A032742(n), where OR is bitwise-or (A003986) and A032742 = the largest proper divisor of n.

%I A318516 #8 Aug 28 2018 15:58:52
%S A318516 1,1,3,2,5,3,7,4,7,5,11,6,13,7,15,8,17,9,19,10,15,11,23,12,21,13,27,
%T A318516 14,29,15,31,16,31,17,31,18,37,19,31,20,41,21,43,22,31,23,47,24,47,25,
%U A318516 51,26,53,27,47,28,55,29,59,30,61,31,63,32,61,33,67,34,63,35,71,36,73,37,59,38,75,39,79,40,63,41,83,42
%N A318516 a(n) = A032742(n) OR n-A032742(n), where OR is bitwise-or (A003986) and A032742 = the largest proper divisor of n.
%H A318516 Antti Karttunen, <a href="/A318516/b318516.txt">Table of n, a(n) for n = 1..65537</a>
%H A318516 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F A318516 a(n) = A003986(A032742(n), A060681(n)).
%F A318516 a(n) = n - A318518(n).
%o A318516 (PARI)
%o A318516 A032742(n) = if(1==n,n,n/vecmin(factor(n)[,1]));
%o A318516 A318516(n) = bitor(A032742(n),n-A032742(n));
%Y A318516 Cf. A003986, A032742, A060681, A318506, A318514, A318517, A318518.
%K A318516 nonn,base
%O A318516 1,3
%A A318516 _Antti Karttunen_, Aug 28 2018