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.

A265099 Least k such that floor(2^A006666(k)/3^A006667(k)) - k = n.

Original entry on oeis.org

1, 6, 9, 19, 18, 27, 33, 37, 36, 50, 43, 56, 59, 66, 57, 74, 78, 72, 97, 87, 86, 98, 112, 119, 118, 134, 123, 115, 114, 130, 149, 148, 157, 135, 179, 144, 153, 187, 220, 174, 173, 172, 197, 196, 255, 224, 238, 219, 236, 203, 249, 268, 247, 246, 230, 229, 228
Offset: 0

Views

Author

Michel Lagneau, Dec 01 2015

Keywords

Comments

A006666 and A006667 are the number of halving and tripling steps to reach 1 in 3x+1 problem.
Conjecture: k exists for all n.
In other words, given an integer n, there always exists at least an integer k and a pair of integers (a, b) such that n + k = 2^a/3^b where a is the number of halving steps to reach 1, and b is the number of tripling steps to reach 1, in the 3x+1 problem.

Examples

			a(0) = 1 because A006666(1) = 0 and A006667(1) = 0 => floor(2^0/3^0) - 1 = 1 - 1 = 0;
a(1) = 6 because A006666(6) = 6 and A006667(6) = 2 => floor(2^6/3^2) - 6 = floor(64/9) - 6 = 7 - 6 = 1.
		

Crossrefs

Programs

  • Mathematica
    lst={};Do[Collatz[k_]:=NestWhileList[If[EvenQ[#],#/2,3 #+1]&,k,#>1&];nn=500;t={};k=0;While[Length[t]
    				

A302175 a(n) = [2^A006666(n)/3^A006667(n)], where [x] = floor(x).

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 8, 11, 10, 12, 14, 14, 16, 16, 16, 18, 22, 22, 21, 21, 25, 25, 28, 29, 28, 32, 33, 33, 33, 36, 32, 39, 37, 37, 44, 44, 44, 47, 42, 48, 42, 53, 50, 50, 50, 54, 56, 59, 59, 59, 56, 56, 64, 64, 67, 71, 67, 71, 67, 67, 72, 72, 64, 79, 79, 79, 75
Offset: 1

Views

Author

Michel Lagneau, Apr 03 2018

Keywords

Comments

The sequence contains A211981 and the powers of 2 (A000079).
There exists a subset E = { 1, 2, 3, 4, 5, 8, 10, 16, 21, 32, 42, 64, 85, 128, 170, 227, 256, 341, 512, 682, 1024, 2048, ...} in {a(n)} such that each element m of E generates the Collatz sequence of iterates m -> T_1(m) -> T_2(m) -> T_3(m) -> ... -> 1 where any T_i(m) is an element of E of the form [2^i /3^j] where i = A006666(m), or A006666(m)-1, or ... and j = A006667(m), or A006667(m)-1, or ..., but with A006667(m) <= 3. If m is even then m/2 is in E.
For example, the statement that "3 is an element of E" implies that each element of the trajectory 3 -> 10 -> 5 -> 16 -> 8 -> 4 -> 2 -> 1 belongs to E. Thus the trajectory of the number 3 can be represented by [2^5/3^2] -> [2^5/3^1] -> [2^4/3^1] -> [2^4/3^0] -> [2^3/3^0] -> [2^2/3^0] -> [2^1/3^0] -> [2^0/3^0].

Examples

			a(39) = [2^A006666(39)/3^A006667(39)] = [2^23/3^11] = [47.353937...] = 47.
		

Crossrefs

Programs

  • Mathematica
    Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 70; t = {}; n = 0; While[Length[t] < nn, n++; c = Collatz[n]; ev = Length[Select[c, EvenQ]]; od = Length[c] - ev - 1; AppendTo[t, Floor[2^ev/3^od]]]; t
  • PARI
    a(n) = my(t, h); while(n>1, if(n%2, n=3*n+1; t++, n>>=1; h++)); 2^h\3^t; \\ Michel Marcus, May 05 2018
Showing 1-2 of 2 results.