A131359 Erroneous version of A108808.
4, 74, 1434, 27080
Offset: 1
Keywords
References
- J. N. Ridley and M. E. Mays, Compositions of unions of graphs, Fib. Quart. 42 (2004), 222-230.
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.
I:=[1, 2, 12]; [n le 3 select I[n] else 6*Self(n-1)+Self(n-2): n in [1..30]]; // Vincenzo Librandi, May 17 2013
Join[{1},LinearRecurrence[{6,1},{2,12},30]] (* Harvey P. Dale, Jul 22 2013 *)
Array A(m,n) (with rows m >= 1 and columns n >= 1) begins 1, 2, 4, 8, 16, 32, 64, 128, ... 2, 12, 74, 456, 2810, 17316, 106706, ... 4, 74, 1434, 27780, 538150, 10424872, ... 8, 456, 27780, 1691690, 103015508, ... 16, 2810, 538150, 103015508, ... 32, 17316, 10424872, ... 64, 106706, ... 128, ... ...
For n=1 the a(1)=5 solutions are given here, where the first picture has all three vertices in the same partition (called A), the next three pictures have two vertices in the partition A and one in the partition B, and the last picture has all three vertices in their own partitions. A A B A A / \ / \ / \ / \ / \ A___A B___A A___A A___B B___C
a:= n-> ceil((<<0|1>, <-5|24>>^n. <<6/25, 24/5>>)[1$2]): seq(a(n), n=1..21); # Alois P. Heinz, Jul 14 2021
M = {{8, 6, 6, 6, 4}, {6, 4, 5, 5, 3}, {6, 5, 4, 5, 3}, {6, 5, 5, 4, 3}, {4, 3, 3, 3, 2}}; w = {1, 1, 1, 1, 1}; Join[{5},Table[Transpose[w] . MatrixPower[M, n, w], {n, 1, 40}]]
Here are the a(1) = 15 compositions of the graph K_4 x P_1 = K_4, where the first block represents all four vertices of K_4 in the same partition (called "a"), the second block shows three vertices in partition "a" and the fourth vertex in its own partition (called "b"), and so on, up to the last block which shows all four vertices each in its own partition: aa aa aa ba ab bb ab ab aa ba cb ac ab ba ab aa ab ba aa aa aa ab ba bc ca aa ab ca ac cd
M = {{16, 12, 12, 12, 12, 12, 12, 9, 9, 9, 8, 8, 8, 8, 5}, {12, 8, 10, 10, 9, 10, 10, 6, 8, 8, 6, 6, 7, 7, 4}, {12, 10, 8, 9, 10, 10, 10, 8, 6, 8, 6, 7, 6, 7, 4}, {12, 10, 9, 8, 10, 10, 10, 8, 6, 8, 7, 6, 7, 6, 4}, {12, 9, 10, 10, 8, 10, 10, 6, 8, 8, 7, 7, 6, 6, 4}, {12, 10, 10, 10, 10, 8, 9, 8, 8, 6, 7, 6, 6, 7, 4}, {12, 10, 10, 10, 10, 9, 8, 8, 8, 6, 6, 7, 7, 6, 4}, {9, 6, 8, 8, 6, 8, 8, 4, 7, 7, 5, 5, 5, 5, 3}, {9, 8, 6, 6, 8, 8, 8, 7, 4, 7, 5, 5, 5, 5, 3}, {9, 8, 8, 8, 8, 6, 6, 7, 7, 4, 5, 5, 5, 5, 3}, {8, 6, 6, 7, 7, 7, 6, 5, 5, 5, 4, 5, 5, 5, 3}, {8, 6, 7, 6, 7, 6, 7, 5, 5, 5, 5, 4, 5, 5, 3}, {8, 7, 6, 7, 6, 6, 7, 5, 5, 5, 5, 5, 4, 5, 3}, {8, 7, 7, 6, 6, 7, 6, 5, 5, 5, 5, 5, 5, 4, 3}, {5, 4, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 2}}; w = Table[1, {15}]; Join[{15}, Table[Transpose[w] . MatrixPower[M, n, w], {n, 1, 40}]]
Comments