A058541 Trajectory of 1 under map that sends x to 3x - sigma(x).

1, 2, 3, 5, 9, 14, 18, 15, 21, 31, 61, 121, 230, 258, 246, 234, 156, 76, 88, 84, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28

Offset

0,2

Links

Table of n, a(n) for n=0..62.

Mathematica

NestList[3#-DivisorSigma[1, #]&, 1, 70] (* Harvey P. Dale, Jul 23 2012 *)

Crossrefs

Cf. A037159, A058542, A058545.

Sequence in context: A070819 A195667 A005244 * A023672 A023567 A076027

Adjacent sequences: A058538 A058539 A058540 * A058542 A058543 A058544

Keyword

nonn

Author

N. J. A. Sloane, Jud McCranie, Dec 24 2000

Status

approved