login
A033971
Trajectory of 1 under map n->29n+1 if n odd, n->n/2 if n even
0
1, 30, 15, 436, 218, 109, 3162, 1581, 45850, 22925, 664826, 332413, 9639978, 4819989, 139779682, 69889841, 2026805390, 1013402695, 29388678156, 14694339078, 7347169539, 213067916632, 106533958316
OFFSET
0,2
MATHEMATICA
NestList[If[EvenQ[#], #/2, 29#+1]&, 1, 30] (* Harvey P. Dale, Jun 03 2015 *)
CROSSREFS
Sequence in context: A089332 A040873 A070891 * A193220 A040872 A361029
KEYWORD
nonn
AUTHOR
STATUS
approved