A058542 Trajectory of 16 under map that sends x to 3x - sigma(x).

16, 17, 33, 51, 81, 122, 180, -6, -30, -162, -849, -3683, -14889, -67387, -270481, -1083495, -5351733, -23785493, -95779647, -425687333, -1702749333, -7385743647, -33685755741, -156526119063, -703401325293, -3048080581927, -12307998348021, -53348118829343

Offset: 0

Author

N. J. A. Sloane, Dec 24 2000

Keywords

• sign

Crossrefs

Cf. A037159, A058541, A058545.

Programs

Mathematica

NestList[3#-DivisorSigma[1,#]&,16,30] (* Harvey P. Dale, Jun 01 2016 *)