%I #5 Oct 17 2014 16:17:27
%S 1,28,14,7,190,95,2566,1283,34642,17321,467668,233834,116917,3156760,
%T 1578380,789190,394595,10654066,5327033,143829892,71914946,35957473,
%U 970851772,485425886,242712943,6553249462
%N Trajectory of 1 under map n->27n+1 if n odd, n->n/2 if n even
%t NestList[If[EvenQ[#],#/2,27#+1]&,1,30] (* _Harvey P. Dale_, Oct 17 2014 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
|