login
A318515
a(n) = n AND A032742(n), where AND is bitwise-and (A004198) and A032742 = the largest proper divisor of n.
3
1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 4, 1, 6, 5, 0, 1, 0, 1, 0, 5, 2, 1, 8, 1, 8, 9, 12, 1, 14, 1, 0, 1, 0, 3, 0, 1, 2, 5, 0, 1, 0, 1, 4, 13, 6, 1, 16, 1, 16, 17, 16, 1, 18, 3, 24, 17, 24, 1, 28, 1, 30, 21, 0, 1, 0, 1, 0, 5, 2, 1, 0, 1, 0, 9, 4, 9, 6, 1, 0, 17, 0, 1, 0, 17, 2, 21, 8, 1, 8, 9, 12, 29, 14, 19, 32, 1, 32, 33, 32, 1, 34, 1, 32, 33
OFFSET
1,6
FORMULA
a(n) = A004198(n, A032742(n)).
a(n) = n + A032742(n) - A318514(n) = (n+A032742(n)-A106409(n))/2.
PROG
(PARI)
A032742(n) = if(1==n, n, n/vecmin(factor(n)[, 1]));
A318515(n) = bitand(n, A032742(n));
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 28 2018
STATUS
approved