A075476 Number of iteration that first becomes smaller than the initial value if Collatz-function (A006370) is iterated, starting with numbers of form 64n+7. Corresponds to selection of every 16th term from A074474.
12, 84, 12, 14, 12, 35, 12, 14, 12, 17, 12, 14, 12, 25, 12, 14, 12, 25, 12, 14, 12, 27, 12, 14, 12, 17, 12, 14, 12, 38, 12, 14, 12, 25, 12, 14, 12, 45, 12, 14, 12, 17, 12, 14, 12, 27, 12, 14, 12, 20, 12, 14, 12, 79, 12, 14, 12, 17, 12, 14, 12, 20, 12, 14, 12, 33, 12, 14, 12
Offset: 0
Keywords
Examples
n=0: 64n+7=7, list={7, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5..}, i.e. the 12th term is the first that <12, the initial value.
Links
Programs
-
Mathematica
lcoll[n_] := Length[NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # >= n &]]; Table[lcoll[64*i + 7], {i, 0, 68}] (* Jayanta Basu, Jun 15 2013 *)
-
PARI
A006370(n) = if(n%2, 3*n+1, n/2); A074473(n) = if(1==n,n,my(org_n=n); for(i=1,oo,if(n
A006370(n))); A075476(n) = A074473((64*n)+7); \\ Antti Karttunen, Oct 09 2018
Formula
a(n) = A074473(64n+7), n=0, ..., 256
Extensions
Typo in formula corrected by Antti Karttunen, Oct 09 2018
Comments