login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A187831 Smallest number m > n such that n occurs in Collatz trajectory starting with m; a(0) = 1 by convention. 3

%I #20 Feb 16 2022 22:28:26

%S 1,2,3,6,5,6,12,9,9,18,11,14,24,14,18,30,17,18,36,25,22,42,25,27,48,

%T 33,28,54,36,33,60,41,42,66,36,41,72,43,39,78,41,54,84,57,50,90,47,54,

%U 96,57,66,102,56,54,108,73,57,114,59,78,120,62,82,126,75

%N Smallest number m > n such that n occurs in Collatz trajectory starting with m; a(0) = 1 by convention.

%C A070165(a(n),k) = n for some k with 1 <= k <= A006577(a(n)).

%H Reinhard Zumkeller, <a href="/A187831/b187831.txt">Table of n, a(n) for n = 0..10000</a>

%H <a href="/index/3#3x1">Index entries for sequences related to 3x+1 (or Collatz) problem</a>

%e n = 10: row 11 of A070165 = [11,34,17,52,26,13,40,20,10,5,16,8,4,2,1],

%e therefore A070165(11,9) = 10 and a(10) = 11;

%e n = 11: rows 12 and 13 of A070165 don't contain 11, but 14 does:

%e row 12: [12,6,3,10,5,16,8,4,2,1],

%e row 13: [13,40,20,10,5,16,8,4,2,1],

%e row 14: [14,7,22,11,34,17,52,26,13,40,20,10,5,16,8,4,2,1],

%e therefore A070165(14,4) = 11: a(11) = 14.

%t mcollQ[n_,k_]:=MemberQ[NestWhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&],k]==True; Prepend[Table[i=n+1; While[!mcollQ[i,n],i++]; i,{n,64}],1] (* _Jayanta Basu_, May 27 2013 *)

%t Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Join[{1}, Table[k = n + 1; While[! MemberQ[Collatz[k], n], k++]; k, {n, 100}]] (* _T. D. Noe_, May 28 2013 *)

%o (Haskell)

%o import Data.List (find)

%o import Data.Maybe (fromJust)

%o a187831 0 = 1

%o a187831 n = head $ fromJust $

%o find (n `elem`) $ drop (fromIntegral n) a070165_tabf

%Y Cf. A177729, A061641.

%Y Cf. A225840.

%K nonn

%O 0,2

%A _Reinhard Zumkeller_, Jan 04 2013

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 13:21 EDT 2024. Contains 371254 sequences. (Running on oeis4.)