login
Trajectory of 1 under map n->47n+1 if n odd, n->n/2 if n even
1

%I #5 May 09 2021 15:21:56

%S 1,48,24,12,6,3,142,71,3338,1669,78444,39222,19611,921718,460859,

%T 21660374,10830187,509018790,254509395,11961941566,5980970783,

%U 281105626802,140552813401,6605982229848,3302991114924

%N Trajectory of 1 under map n->47n+1 if n odd, n->n/2 if n even

%H Harvey P. Dale, <a href="/A033979/b033979.txt">Table of n, a(n) for n = 0..1000</a>

%t NestList[If[OddQ[#],47#+1,#/2]&,1,30] (* _Harvey P. Dale_, May 09 2021 *)

%K nonn

%O 0,2

%A _N. J. A. Sloane_.