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.

A093545 Sorted mapping of A093544 onto the integers.

Original entry on oeis.org

0, 2, 1, 5, 7, 3, 10, 12, 4, 15, 17, 6, 20, 22, 8, 25, 27, 9, 30, 32, 11, 35, 37, 13, 40, 42, 14, 45, 47, 16, 50, 52, 18, 55, 57, 19, 60, 62, 21, 65, 67, 23, 70, 72, 24, 75, 77, 26, 80, 82, 28, 85, 87, 29, 90, 92, 31, 95, 97, 33, 100, 102, 34, 105, 107, 36, 110, 112, 38
Offset: 0

Views

Author

Ralf Stephan, Mar 31 2004

Keywords

Comments

As A093544 contains the odd numbers not of form 12k+9, we map from modulo 12 to modulo 5: 1->0, 3->1, 5->2, 7->3, 11->4.

Crossrefs

Cf. A047206, A340615 (inverse permutation), A014682.

Programs

  • Mathematica
    CoefficientList[Series[x (x^10 + 3 x^9 + 5 x^8 + x^7 + 5 x^6 + 5 x^5 + 2 x^4 + 5 x^3 + 5 x^2 + x + 2)/(1 - x^3 - x^9 + x^12), {x, 0, 68}], x] (* Michael De Vlieger, Mar 05 2021 *)
  • PARI
    a(n)=5*(A093544(n)\12)+if(A093544(n)%12==11,4,((A093544(n)%12)-1)/2)

Formula

a(3n) = 5n, a(3n+1) = 5n+2, a(3n+2) = A047206(n).
G.f.: x*(x^10 + 3*x^9 + 5*x^8 + x^7 + 5*x^6 + 5*x^5 + 2*x^4 + 5*x^3 + 5*x^2 + x + 2)/(1 - x^3 - x^9 + x^12).

A342369 If n is congruent to 2 (mod 3), then a(n) = (2*n - 1)/3; otherwise, a(n) = 2*n.

Original entry on oeis.org

0, 2, 1, 6, 8, 3, 12, 14, 5, 18, 20, 7, 24, 26, 9, 30, 32, 11, 36, 38, 13, 42, 44, 15, 48, 50, 17, 54, 56, 19, 60, 62, 21, 66, 68, 23, 72, 74, 25, 78, 80, 27, 84, 86, 29, 90, 92, 31, 96, 98, 33, 102, 104, 35, 108, 110, 37, 114, 116, 39, 120, 122, 41, 126, 128, 43, 132, 134, 45, 138, 140, 47, 144, 146
Offset: 0

Views

Author

Thomas Scheuerle, Mar 09 2021

Keywords

Comments

This sequence is a permutation of all numbers not congruent to 4 (mod 6) (A047256).
This sequence has no finite cycles other than (2,1) under recursion, because of all cycles of permutation A093545(n), only one cycle (2,1) is without any number congruent to 4 (mod 6). See section "formula" first entry here. After a finite number of recursions it will reach only numbers divisible by 3 under further recursion.
m = a(n) is the smallest solution to A014682(m) = n.
If we define f(n) = 2*n and j(n) as an arbitrary recursion into a(n) and/or f(n) ( two examples: j(n) = a(a(n)) or j(n) = a(f(a(n))) ), then for all m, k and n = A014682^k(m), exists a j(n) that allows m = j(n). "^k" means recursion here.
Proving the Collatz conjecture could be done by proving that for all positive integers m, a function j(n) (see first comment) could be designed such that m = j(1). All numbers greater than 4 can be reached by a^k(6*p - 2) with exactly one p and k. The Collatz conjecture cannot be true if 3*p - 1 = a^k(6*p - 2) exists.

Crossrefs

Programs

  • MATLAB
    function a = A342369( max_n )
        a(1) = 0;
        for n=1:max_n
            if mod(n,3) == 2
                a(n) = (2*n - 1)/3;
            else
                a(n) = 2*n;
            end
        end
    end
    
  • Mathematica
    Array[If[Mod[#, 3] == 2, (2 # - 1)/3, 2 #] &, 74, 0] (* Michael De Vlieger, Mar 14 2021 *)
  • PARI
    a(n) = if ((n%3)==2, (2*n - 1)/3, 2*n); \\ Michel Marcus, Mar 09 2021

Formula

a(n) = A093545(n) + floor((1 + A093545(n))/5).
a(3*n) = a(3*(n-1)) + 6.
a(3*n - 1) = a(3*(n-1) - 1) + 2.
a(3*n - 2) = a(3*(n-1) - 2) + 6.
a(n) = 14*n - 2*a(n-1) - 3*a(n-2) - 2*a(n-3) - a(n-4) - 29 for n >= 4.
A014682(a(n)) = n.
a(A014682(n)) = (n+2)/3 - 1 if n == 4 (mod 6).
a(A014682(n)) = n if n !== 4 (mod 6).
a^k(3*n) = (3*n)*2^k where a^2(3*n) is a(a(3*n)) = (3*n)*4.
G.f.: -(-x^5 - 4*x^4 - 6*x^3 - x^2 - 2*x)/(x^6 - 2*x^3 + 1).
a(n) = (A093544(n+1) - 1)/2. - Hugo Pfoertner, Mar 10 2021
Showing 1-2 of 2 results.