login
A304735
a(n) = A048675(A064413(n)).
4
0, 1, 2, 3, 2, 4, 4, 3, 5, 4, 6, 5, 9, 8, 10, 5, 4, 6, 17, 16, 18, 6, 7, 8, 12, 10, 33, 32, 34, 6, 5, 65, 64, 66, 11, 129, 128, 130, 8, 7, 18, 257, 256, 258, 6, 9, 34, 7, 11, 16, 12, 8, 20, 36, 13, 513, 512, 514, 19, 1025, 1024, 1026, 7, 6, 66, 2049, 2048, 2050, 10, 35, 130, 8, 4097, 4096, 4098, 8, 12, 24, 19, 8193, 8192, 8194, 9, 68, 132, 10
OFFSET
1,3
FORMULA
a(n) = A048675(A064413(n)).
PROG
(PARI)
A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; };
A304735(n) = A048675(A064413(n)); \\ Needs also code for A064413.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 18 2018
STATUS
approved