1,4

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

Antti Karttunen, Scheme (Racket) program to compute this sequence

a(1) = 1; for n > 1, a(n) = A285721(n,A000203(n)-1).

(PARI)

A285721(n, k) = if(n==k, 0, 1 + A285721(abs(n-k), min(n, k)));

A300227(n) = if(1==n, n, A285721(n, sigma(n)-1));

Cf. A000203, A285721.

Cf. also A286594, A300228, A300234, A300237, A300238.

Sequence in context: A303638 A162974 A275325 * A290971 A178636 A046520

Adjacent sequences: A300224 A300225 A300226 * A300228 A300229 A300230

nonn

Antti Karttunen, Mar 02 2018

approved