A318514 a(n) = n OR (greatest proper divisor of n).

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, 31, 27, 30, 29, 31, 31, 48, 43, 51, 39, 54, 37, 55, 47, 60, 41, 63, 43, 62, 47, 63, 47, 56, 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

Offset: 1

Author

Antti Karttunen, Aug 28 2018

Keywords

• nonn
• base

Links

• Antti Karttunen, Table of n, a(n) for n = 1..65537
• Index entries for sequences related to binary expansion of n

Crossrefs

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

Programs

PARI

A032742(n) = if(1==n,n,n/vecmin(factor(n)[,1]));
A318514(n) = bitor(n,A032742(n));

Formula

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

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