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.

Previous Showing 11-13 of 13 results.

A340010 The order of the largest weakly connected component of the Collatz digraph of order n.

Original entry on oeis.org

1, 2, 2, 3, 3, 3, 3, 7, 7, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 12, 12, 12, 12, 13, 13, 21, 21, 22, 22, 22, 22, 24, 24, 25, 25, 26, 26, 26, 26, 27, 27, 28, 28, 33, 33, 33, 33, 34, 34, 36, 36, 37, 37, 37, 37, 39, 39, 40, 40, 40, 40, 40, 40, 41, 41, 42, 42, 44, 44
Offset: 1

Views

Author

Sebastian Karlsson, Dec 26 2020

Keywords

Comments

The Collatz digraph of order n is the directed graph with the vertex set V = {1, 2, ..., n} and the arrow set A = {m -> A014682(m) | m and A014682(m) are elements of V}.

Examples

			The weakly connected components of the Collatz digraph of order 3 are 1 -> 2 -> 1 and the singleton 3. The order of the largest component is #{1, 2} = 2.
The weakly connected components of the Collatz digraph of order 10 correspond to the following partition of {1, 2, ..., 10}: {1, 2, 3, 4, 5, 6, 8, 10}, {7} and {9}. The order of the largest component is #{1, 2, 3, 4, 5, 6, 8, 10} = 8. Hence, a(10) = 8.
The weakly connected components of the Collatz digraph of order 20 correspond to the partition {1, 2, 3, 4, 5, 6, 8, 10, 12, 13, 16, 20}, {7, 9, 11, 14, 17, 18}, {15} and {19}. The order of the largest component is #{1, 2, 3, 4, 5, 6, 8, 10, 12, 13, 16, 20} = 12. Thus, a(20) = 12.
		

References

  • J. C. Lagarias, ed., The Ultimate Challenge: The 3x+1 Problem, Amer. Math. Soc., 2010.

Crossrefs

Programs

  • Python
    import networkx as nx
    def T(n): #A014682
        return n//2 if n%2 == 0 else (3*n+1)//2
    def a(n):
        G = nx.Graph()
        G.add_nodes_from(range(1, n+1))
        G.add_edges_from([(m,T(m)) for m in range(1, n+1) if T(m) <= n])
        return len(max(nx.connected_components(G)))
    for n in range(1, 70):
        print(a(n), end=", ")

A341307 Expansion of (x^9+x^8+2*x^7+x^6+2*x^5+2*x^4+x^3+x^2+1)/(1-x^6)^2.

Original entry on oeis.org

1, 0, 1, 1, 2, 2, 3, 2, 3, 3, 4, 4, 5, 4, 5, 5, 6, 6, 7, 6, 7, 7, 8, 8, 9, 8, 9, 9, 10, 10, 11, 10, 11, 11, 12, 12, 13, 12, 13, 13, 14, 14, 15, 14, 15, 15, 16, 16, 17, 16, 17, 17, 18, 18, 19, 18, 19, 19, 20, 20, 21, 20, 21, 21, 22, 22, 23, 22, 23, 23, 24, 24, 25, 24, 25, 25, 26, 26
Offset: 0

Views

Author

N. J. A. Sloane, Feb 14 2021

Keywords

Crossrefs

Cf. A341311.

Programs

  • Mathematica
    CoefficientList[Series[(x^9+x^8+2*x^7+x^6+2*x^5+2*x^4+x^3+x^2+1)/(1-x^6)^2,{x,0,300}],x]  (* Vincenzo Librandi, Mar 07 2021 *)

Formula

G.f.: (x^9+x^8+2*x^7+x^6+2*x^5+2*x^4+x^3+x^2+1)/(1-x^6)^2 = (1-x+x^2+x^4)/(( x-1)^2*(x+1)*(1+x+x^2)*(1-x+x^2)).
From Wesley Ivan Hurt, May 03 2021: (Start)
a(n) = floor((n+2+(-1)^n)/3).
a(n) = a(n-1)+a(n-6)-a(n-7). (End)
a(n) = A103469(n), n>=3. - R. J. Mathar, Nov 27 2023

A103464 Number of polyominoes consisting of n regular unit heptagons.

Original entry on oeis.org

1, 1, 2, 7, 25, 118, 558, 2876, 14982, 80075, 431889, 2354991, 12930257, 71459124, 396978189, 2215609864
Offset: 3

Views

Author

Sascha Kurz, Jun 09 2006

Keywords

Crossrefs

Previous Showing 11-13 of 13 results.