|
%I #11 Feb 26 2017 02:33:30
%S 1,6,24,109,26,124,147,139,100,92,115,337,135,277,181,261,240,219,286,
%T 322,451,337,303,432,243,540,408,444,304,464,438,554,484,582,517,677,
%U 462,617,1002,539,655,709,714,737,623,708,868,723,707,676,642,833,776
%N Length of iteration-list when Collatz-function(A006370) is iterated with initial value 5^n.
%H T. D. Noe, <a href="/A075484/b075484.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A008908(5^n).
%e n=2: 5^n=25, list={25, 76, 38, 19, 58, 29, 88, 44, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10.5, 16, 8, 4, 2, 1}, a(2)=24.
%t Table[Length[NestWhileList[If[EvenQ@ #, #/2, 3 # + 1] &, 5^n, # != 1 &]], {n, 0, 52}] (* _Michael De Vlieger_, Feb 25 2017 *)
%Y Cf. A006370, A008908, A074472, A075485, A075486, A075487, A075488.
%K nonn
%O 0,2
%A _Labos Elemer_, Sep 26 2002
|
