login
A318518
a(n) = A032742(n) AND n-A032742(n), where AND is bitwise-and (A004198) and A032742 = the largest proper divisor of n.
5
0, 1, 0, 2, 0, 3, 0, 4, 2, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0, 10, 6, 11, 0, 12, 4, 13, 0, 14, 0, 15, 0, 16, 2, 17, 4, 18, 0, 19, 8, 20, 0, 21, 0, 22, 14, 23, 0, 24, 2, 25, 0, 26, 0, 27, 8, 28, 2, 29, 0, 30, 0, 31, 0, 32, 4, 33, 0, 34, 6, 35, 0, 36, 0, 37, 16, 38, 2, 39, 0, 40, 18, 41, 0, 42, 0, 43, 24, 44, 0, 45, 12, 46, 30, 47, 0, 48, 0, 49, 0, 50, 0, 51, 0
OFFSET
1,4
FORMULA
a(n) = A004198(A032742(n), A060681(n)).
a(n) = n - A318516(n) = (n - A318517(n))/2.
PROG
(PARI)
A032742(n) = if(1==n, n, n/vecmin(factor(n)[, 1]));
A318518(n) = bitand(A032742(n), n-A032742(n));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 28 2018
STATUS
approved