A261104 a(0)=0; for n >= 1, a(n) = 1 + a(n-A070319(n)), where A070319(n) is the maximum value for A000005 (number of divisors) in range 1 .. n.

0, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 3, 4, 4, 4, 4, 5, 4, 5, 5, 5, 5, 6, 5, 6, 5, 6, 6, 6, 6, 7, 6, 7, 6, 7, 7, 7, 7, 7, 8, 7, 8, 7, 8, 8, 8, 8, 8, 8, 9, 8, 9, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 9, 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 11, 10, 11, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 11, 12, 11, 12, 12, 12, 12, 12, 12, 12, 12, 13, 12, 13, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 13, 14, 13, 14, 14, 14, 14, 14, 14, 14, 14

Offset

0,4

Comments

Number of steps needed to reach zero when starting from k = n and repeatedly applying the map that replaces k by k - A070319(k), where A070319(k) is the maximum value for A000005 (number of divisors) in range 1 .. k.

Links

Antti Karttunen, Table of n, a(n) for n = 0..10080

Formula

a(0)=0; for n >= 1, a(n) = 1 + a(n-A070319(n)).

Other identities. For all n >= 0:

a(A262502(n)) = n.

Prog

(Scheme, with memoizing macro definec)
(definec (A261104 n) (if (zero? n) n (+ 1 (A261104 (- n (A070319 n))))))

Crossrefs

Cf. A155043, A070319.

Cf. A262502 (positions of records).

Sequence in context: A230775 A108037 A237354 * A326032 A169990 A055679

Adjacent sequences: A261101 A261102 A261103 * A261105 A261106 A261107

Keyword

nonn

Author

Antti Karttunen, Sep 24 2015

Status

approved