login
A037113
Trajectory of 3 under map n->31n+1 if n odd, n->n/2 if n even.
0
3, 94, 47, 1458, 729, 22600, 11300, 5650, 2825, 87576, 43788, 21894, 10947, 339358, 169679, 5260050, 2630025, 81530776, 40765388, 20382694, 10191347, 315931758, 157965879, 4896942250, 2448471125
OFFSET
0,1
MATHEMATICA
NestList[If[OddQ[#], 31#+1, #/2]&, 3, 30] (* Harvey P. Dale, Mar 07 2012 *)
CROSSREFS
Sequence in context: A116292 A139543 A241982 * A142887 A297489 A241752
KEYWORD
nonn
AUTHOR
STATUS
approved