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

Author

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

Keywords

• nonn

Crossrefs

Cf. A037159, A058542, A058545.

Programs

Mathematica

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