Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Jun 03 2015 17:53:36
%S 1,30,15,436,218,109,3162,1581,45850,22925,664826,332413,9639978,
%T 4819989,139779682,69889841,2026805390,1013402695,29388678156,
%U 14694339078,7347169539,213067916632,106533958316
%N Trajectory of 1 under map n->29n+1 if n odd, n->n/2 if n even
%t NestList[If[EvenQ[#],#/2,29#+1]&,1,30] (* _Harvey P. Dale_, Jun 03 2015 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.