A267108 a(n) = A000120(A267111(n)).

1, 1, 2, 1, 2, 3, 2, 1, 2, 3, 4, 2, 3, 3, 2, 1, 2, 3, 4, 5, 2, 3, 4, 3, 4, 4, 2, 3, 3, 3, 2, 1, 2, 3, 4, 5, 6, 2, 3, 4, 5, 3, 4, 5, 4, 5, 5, 2, 3, 4, 3, 4, 4, 3, 4, 4, 4, 2, 3, 3, 3, 3, 2, 1, 2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 3, 4, 5, 6, 4, 5, 6, 5, 6, 6, 2, 3, 4, 5, 3, 4, 5, 4, 5, 5, 3, 4, 5, 4, 5, 5, 4, 5, 5, 5, 2, 3, 4, 3, 4, 4, 3, 4, 4, 4, 3, 4, 4, 4, 4

Offset

1,3

Links

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

Formula

a(1) = 1; for n > 1, if A265332(n) = 1 [when n is one of the terms of A088359], a(n) = 1 + a(A004001(n)-1), otherwise a(n) = a(n-A004001(n)).

a(n) = A000120(A267111(n)).

Other identities. For all n >= 1:

a(n) = A070939(n) - A267109(n).

Prog

(Scheme, with memoization-macro definec)
(definec (A267108 n) (cond ((<= n 1) n) ((= 1 (A265332 n)) (+ 1 (A267108 (- (A004001 n) 1)))) (else (A267108 (- n (A004001 n))))))

Crossrefs

Cf. A000120, A004001, A070939, A088359, A265332, A267109, A267110, A267111.

Sequence in context: A100661 A088696 A257249 * A004738 A043554 A005811

Adjacent sequences: A267105 A267106 A267107 * A267109 A267110 A267111

Keyword

nonn

Author

Antti Karttunen, Jan 16 2016

Status

approved