login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A285335
Odd bisection of A048675 divided by two: a(n) = A048675((2*n)-1)/2.
1
0, 1, 2, 4, 2, 8, 16, 3, 32, 64, 5, 128, 4, 3, 256, 512, 9, 6, 1024, 17, 2048, 4096, 4, 8192, 8, 33, 16384, 10, 65, 32768, 65536, 6, 18, 131072, 129, 262144, 524288, 5, 12, 1048576, 4, 2097152, 34, 257, 4194304, 20, 513, 66, 8388608, 10, 16777216, 33554432, 7, 67108864, 134217728, 1025, 268435456, 130, 18, 36, 16, 2049, 6
OFFSET
1,3
LINKS
FORMULA
a(n) = A048675((2*n)-1)/2.
a(n) = A048675(A064216(n)).
PROG
(PARI)
A048675(n) = { my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; }; \\ After Michel Marcus
A285335(n) = A048675((2*n)-1)/2;
(Scheme)
(define (A285335 n) (A048675 (A064216 n)))
(define (A285335 n) (/ (A048675 (+ n n -1)) 2))
CROSSREFS
Sequence in context: A051288 A120434 A319030 * A187619 A008303 A349209
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 24 2017
STATUS
approved