cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A185590 Iterate the map in A006369 starting at 44.

This page as a plain text file.
%I A185590 #24 Oct 18 2024 20:31:21
%S A185590 44,59,79,105,70,93,62,83,111,74,99,66,44,59,79,105,70,93,62,83,111,
%T A185590 74,99,66,44,59,79,105,70,93,62,83,111,74,99,66,44,59,79,105,70,93,62,
%U A185590 83,111,74,99,66,44,59,79,105,70,93,62,83,111,74,99,66,44,59,79,105,70,93,62,83,111,74,99,66,44
%N A185590 Iterate the map in A006369 starting at 44.
%C A185590 Periodic with period length 12.
%D A185590 A. O. L. Atkin, Comment on Problem 63-13, SIAM Rev., 8 (1966), 234-236.
%D A185590 J. C. Lagarias, ed., The Ultimate Challenge: The 3x+1 Problem, Amer. Math. Soc., 2010; see page 270. (beware of typo: Lagarias says the orbit of 144 (not 44) has period 12.)
%H A185590 Reinhard Zumkeller, <a href="/A185590/b185590.txt">Table of n, a(n) for n = 1..10000</a>
%H A185590 <a href="/index/3#3x1">Index entries for sequences related to 3x+1 (or Collatz) problem</a>
%t A185590 f[n_] := If[Mod[n, 3] == 0, 2*n/3, Round[4*n/3]]; a[1] = 44; a[n_] := a[n] = f[a[n - 1]]; Table[a[n], {n, 1, 73}] (* _Jean-François Alcover_, Jun 10 2013 *)
%o A185590 (Haskell)
%o A185590 a185590 n = a185590_list !! (n-1)
%o A185590 a185590_list = iterate a006369 44  -- _Reinhard Zumkeller_, Dec 31 2011
%Y A185590 Cf. A006369, A028394, A028396, A094328, A094329, A185589.
%Y A185590 Trajectories under A006368 and A006369: A180853, A217218, A185590, A180864, A028393, A028394, A094328, A094329, A028396, A028395, A217729, A182205, A223083-A223088, A185589, A185590.
%K A185590 nonn,easy
%O A185590 1,1
%A A185590 _N. J. A. Sloane_, Feb 04 2011