login
A037120
Trajectory of 3 under map n->45n+1 if n odd, n->n/2 if n even.
1
3, 136, 68, 34, 17, 766, 383, 17236, 8618, 4309, 193906, 96953, 4362886, 2181443, 98164936, 49082468, 24541234, 12270617, 552177766, 276088883, 12423999736, 6211999868, 3105999934, 1552999967
OFFSET
0,1
LINKS
MATHEMATICA
NestList[If[EvenQ[#], #/2, 45#+1]&, 3, 30] (* Harvey P. Dale, Jul 08 2019 *)
CROSSREFS
Sequence in context: A361195 A136411 A193136 * A082923 A336202 A231904
KEYWORD
nonn
AUTHOR
STATUS
approved