%I #6 Aug 28 2018 15:59:06

%S 1,3,3,6,5,7,7,12,11,15,11,14,13,15,15,24,17,27,19,30,23,31,23,28,29,

%T 31,27,30,29,31,31,48,43,51,39,54,37,55,47,60,41,63,43,62,47,63,47,56,

%U 55,59,51,62,53,63,63,60,59,63,59,62,61,63,63,96,77,99,67,102,87,103,71,108,73,111,91,110,79,111,79,120,91,123,83,126

%N a(n) = n OR (greatest proper divisor of n).

%H Antti Karttunen, <a href="/A318514/b318514.txt">Table of n, a(n) for n = 1..65537</a>

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>

%F a(n) = A003986(n, A032742(n)).

%F a(n) = n + A032742(n) - A318515(n).

%o (PARI)

%o A032742(n) = if(1==n,n,n/vecmin(factor(n)[,1]));

%o A318514(n) = bitor(n,A032742(n));

%Y Cf. A003986, A032742, A106409, A318506, A318515, A318516.

%K nonn,base

%O 1,2

%A _Antti Karttunen_, Aug 28 2018