login
A285728
a(1) = 0; for n > 1, if n is even, then a(n) = A252463(A000265(n)), otherwise a(n) = a(A064989(n)).
3
0, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 2, 1, 5, 2, 1, 1, 4, 1, 3, 3, 7, 1, 2, 1, 11, 1, 5, 1, 6, 1, 1, 5, 13, 2, 4, 1, 17, 7, 3, 1, 10, 1, 7, 2, 19, 1, 2, 1, 9, 11, 11, 1, 8, 3, 5, 13, 23, 1, 6, 1, 29, 3, 1, 5, 14, 1, 13, 17, 15, 1, 4, 1, 31, 4, 17, 2, 22, 1, 3, 1, 37, 1, 10, 7, 41, 19, 7, 1, 12, 3, 19, 23, 43, 11, 2, 1, 25, 5, 9, 1, 26, 1, 11, 6, 47, 1, 8, 1, 21, 29
OFFSET
1,6
LINKS
FORMULA
a(1) = 0; for n > 1, if n is even, then a(n) = A252463(A000265(n)), otherwise a(n) = a(A064989(n)).
PROG
(Scheme) (define (A285728 n) (cond ((<= n 1) 0) ((even? n) (A252463 (A000265 n))) (else (A285728 (A064989 n)))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 25 2017
STATUS
approved