A285728 a(1) = 0; for n > 1, if n is even, then a(n) = A252463(A000265(n)), otherwise a(n) = a(A064989(n)).

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

Author

Antti Karttunen, Apr 25 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..8192

Crossrefs

Cf. A000265, A064989, A252463, A285727.

Programs

Scheme

(define (A285728 n) (cond ((<= n 1) 0) ((even? n) (A252463 (A000265 n))) (else (A285728 (A064989 n)))))

Formula

a(1) = 0; for n > 1, if n is even, then a(n) = A252463(A000265(n)), otherwise a(n) = a(A064989(n)).