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.

Showing 1-2 of 2 results.

A222292 Least number whose Collatz 3x+1 trajectory contains a number >= 2^n.

Original entry on oeis.org

1, 2, 3, 3, 3, 7, 15, 15, 27, 27, 27, 27, 27, 27, 447, 447, 703, 703, 1819, 1819, 1819, 4255, 4255, 9663, 9663, 20895, 26623, 60975, 60975, 60975, 77671, 113383, 159487, 159487, 159487, 665215, 1042431, 1212415, 2684647, 3041127, 4637979, 5656191, 6416623
Offset: 0

Views

Author

T. D. Noe, Feb 19 2013

Keywords

Comments

Are the unique values a subset of A006884? - Ralf Stephan, May 27 2013
This sequence is important for the computation of Collatz numbers. It shows that using 32-bit integers, only numbers less than 159487 can have their Collatz trajectory computed.

Crossrefs

Cf. A025586, A222291 (base-10 version).
Cf. A095384.

Programs

  • Maple
    b:= proc(n) option remember; `if`(n=1, 1,
          max(n, b(`if`(n::even, n/2, 3*n+1))))
        end:
    a:= proc(n) option remember; local i, t; t:=2^n;
          for i while b(i)Alois P. Heinz, Sep 25 2024

Extensions

a(1) corrected by Kevin Ge, Sep 25 2024

A224538 Number of numbers k such that all terms of the Collatz (3x+1) iteration of k are <= 10^n.

Original entry on oeis.org

1, 4, 49, 340, 4235, 39706, 397068, 3970918, 39523168, 395436300, 3953296865
Offset: 0

Views

Author

T. D. Noe, Apr 24 2013

Keywords

Examples

			For n = 1, the four k are 1, 2, 4, and 8.
		

Crossrefs

Programs

  • Mathematica
    Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; Table[Length[Select[Range[10^n], Max[Collatz[#]] <= 10^n &]], {n, 0, 5}]

Extensions

a(10) from Donovan Johnson, Jun 05 2013
Showing 1-2 of 2 results.