A008486 -id:A008486 - cp's OEIS frontend

A298028 Coordination sequence of Dual(3.6.3.6) tiling with respect to a trivalent node.

1, 3, 12, 9, 24, 15, 36, 21, 48, 27, 60, 33, 72, 39, 84, 45, 96, 51, 108, 57, 120, 63, 132, 69, 144, 75, 156, 81, 168, 87, 180, 93, 192, 99, 204, 105, 216, 111, 228, 117, 240, 123, 252, 129, 264, 135, 276, 141, 288, 147, 300, 153, 312, 159, 324, 165, 336, 171, 348, 177, 360, 183, 372, 189, 384, 195

Offset: 0

N. J. A. Sloane, Jan 21 2018

Also known as the kgd net.

This is one of the Laves tilings.

Robert Israel, Table of n, a(n) for n = 0..10000
Tom Karzes, Tiling Coordination Sequences
Reticular Chemistry Structure Resource (RCSR), The kgd tiling (or net)
N. J. A. Sloane, Overview of coordination sequences of Laves tilings [Fig. 2.7.1 of Grünbaum-Shephard 1987 with A-numbers added and in some cases the name in the RCSR database]
Index entries for linear recurrences with constant coefficients, signature (0,2,0,-1).

Cf. A008579, A135556 (partial sums), A298026 (trivalent point).
If the initial 1 is changed to 0 we get A165988 (but we need both sequences, just as we have both A008574 and A008586).
List of coordination sequences for Laves tilings (or duals of uniform planar nets): [3,3,3,3,3.3] = A008486; [3.3.3.3.6] = A298014, A298015, A298016; [3.3.3.4.4] = A298022, A298024; [3.3.4.3.4] = A008574, A296368; [3.6.3.6] = A298026, A298028; [3.4.6.4] = A298029, A298031, A298033; [3.12.12] = A019557, A298035; [4.4.4.4] = A008574; [4.6.12] = A298036, A298038, A298040; [4.8.8] = A022144, A234275; [6.6.6] = A008458.

f3:=proc(n) if n=0 then 1 elif (n mod 2) = 0 then 6*n else 3*n; fi; end;
[seq(f3(n),n=0..80)];

Join[{1}, LinearRecurrence[{0, 2, 0, -1}, {3, 12, 9, 24}, 80]] (* Jean-François Alcover, Mar 23 2020 *)

a(0)=1; a(2*k) = 12*k, a(2*k+1) = 6*k+3.
G.f.: 1 + 3*x*(x^2+4*x+1)/(1-x^2)^2. - Robert Israel, Jan 21 2018
a(n) = 3*A022998(n), n>0. - R. J. Mathar, Jan 29 2018

A298029 Coordination sequence of Dual(3.4.6.4) tiling with respect to a trivalent node.

Original entry on oeis.org

1, 3, 6, 12, 18, 33, 39, 51, 57, 69, 75, 87, 93, 105, 111, 123, 129, 141, 147, 159, 165, 177, 183, 195, 201, 213, 219, 231, 237, 249, 255, 267, 273, 285, 291, 303, 309, 321, 327, 339, 345, 357, 363, 375, 381, 393, 399, 411, 417, 429, 435, 447, 453, 465, 471, 483, 489, 501, 507, 519, 525, 537, 543, 555

Offset: 0

N. J. A. Sloane, Jan 21 2018

Also known as the deltoidal trihexagonal tiling, or the mta net.
In the Ferreol link this is described as the dual to the Diana tiling. - N. J. A. Sloane, May 24 2020
This is one of the Laves tilings.

Colin Barker, Table of n, a(n) for n = 0..1000
Robert Ferreol, Pavage de diane et son dual
Chaim Goodman-Strauss and N. J. A. Sloane, A Coloring Book Approach to Finding Coordination Sequences, Acta Cryst. A75 (2019), 121-134, also on NJAS's home page. Also arXiv:1803.08530.
Tom Karzes, Tiling Coordination Sequences
Reticular Chemistry Structure Resource (RCSR), The mta tiling (or net)
N. J. A. Sloane, The Dual(3.4.6.4) tiling
N. J. A. Sloane, Overview of coordination sequences of Laves tilings [Fig. 2.7.1 of Grünbaum-Shephard 1987 with A-numbers added and in some cases the name in the RCSR database]
Wikipedia, Laves tilings
Index entries for linear recurrences with constant coefficients, signature (1,1,-1).

Cf. A007310, A008574, A298030 (partial sums), A298031 (for a tetravalent node), A298033 (hexavalent node), A306771.

List of coordination sequences for Laves tilings (or duals of uniform planar nets): [3,3,3,3,3.3] = A008486; [3.3.3.3.6] = A298014, A298015, A298016; [3.3.3.4.4] = A298022, A298024; [3.3.4.3.4] = A008574, A296368; [3.6.3.6] = A298026, A298028; [3.4.6.4] = A298029, A298031, A298033; [3.12.12] = A019557, A298035; [4.4.4.4] = A008574; [4.6.12] = A298036, A298038, A298040; [4.8.8] = A022144, A234275; [6.6.6] = A008458.

Join[{1, 3, 6, 12, 18}, LinearRecurrence[{1, 1, -1}, {33, 39, 51}, 60]] (* Jean-François Alcover, Jan 07 2019 *)
Join[{1,3,6,12,18},Table[If[EvenQ[n],9n-15,9n-12],{n,5,70}]] (* Harvey P. Dale, Aug 25 2019 *)

Vec((1 + 2*x + 2*x^2 + 4*x^3 + 3*x^4 + 9*x^5 - 3*x^7) / ((1 - x)^2*(1 + x)) + O(x^60)) \\ Colin Barker, Jan 25 2018

Theorem: For n >= 5, if n is even then a(n) = 9*n-15, otherwise a(n) = 9*n-12. The proof uses the "coloring book" method described in the Goodman-Strauss & Sloane article. - N. J. A. Sloane, Jan 24 2018
G.f.: -(3*x^7 - 9*x^5 - 3*x^4 - 4*x^3 - 2*x^2 - 2*x - 1)/((1 - x)*(1 - x^2)).
a(n) = a(n-1) + a(n-2) - a(n-3) for n>7. - Colin Barker, Jan 25 2018
a(n) = (3/2)*(6*n - (-1)^n - 9) for n>4. - Bruno Berselli, Jan 25 2018
a(n) = 3*A007310(n-1), n>4. - R. J. Mathar, Jan 29 2018

A298031 Coordination sequence of Dual(3.4.6.4) tiling with respect to a tetravalent node.

Original entry on oeis.org

1, 4, 10, 16, 30, 36, 48, 54, 66, 72, 84, 90, 102, 108, 120, 126, 138, 144, 156, 162, 174, 180, 192, 198, 210, 216, 228, 234, 246, 252, 264, 270, 282, 288, 300, 306, 318, 324, 336, 342, 354, 360, 372, 378, 390, 396, 408, 414, 426, 432, 444, 450, 462, 468, 480, 486, 498, 504, 516, 522, 534, 540

Offset: 0

N. J. A. Sloane, Jan 21 2018; extended with formula, Jan 24 2018

Also known as the mta net.
This is one of the Laves tilings.
In the Ferreol link this is described as the dual to the Diana tiling. - N. J. A. Sloane, May 24 2020

Colin Barker, Table of n, a(n) for n = 0..1000
Robert Ferreol, Pavage de diane et son dual
Chaim Goodman-Strauss and N. J. A. Sloane, A Coloring Book Approach to Finding Coordination Sequences, Acta Cryst. A75 (2019), 121-134, also on NJAS's home page. Also arXiv:1803.08530.
Tom Karzes, Tiling Coordination Sequences
Reticular Chemistry Structure Resource (RCSR), The mta tiling (or net)
N. J. A. Sloane, The Dual(3.4.6.4) tiling
N. J. A. Sloane, The subgraph H shown in one quadrant of the graph of the tiling.
N. J. A. Sloane, Overview of coordination sequences of Laves tilings [Fig. 2.7.1 of Grünbaum-Shephard 1987 with A-numbers added and in some cases the name in the RCSR database]
Index entries for linear recurrences with constant coefficients, signature (1,1,-1).

Cf. A008574, A298032 (partial sums), A298029 (for a trivalent node), A298033 (hexavalent node).

List of coordination sequences for Laves tilings (or duals of uniform planar nets): [3,3,3,3,3.3] = A008486; [3.3.3.3.6] = A298014, A298015, A298016; [3.3.3.4.4] = A298022, A298024; [3.3.4.3.4] = A008574, A296368; [3.6.3.6] = A298026, A298028; [3.4.6.4] = A298029, A298031, A298033; [3.12.12] = A019557, A298035; [4.4.4.4] = A008574; [4.6.12] = A298036, A298038, A298040; [4.8.8] = A022144, A234275; [6.6.6] = A008458.

f4:=proc(n) local L; L:=[1,4,10,16];
if n<4 then L[n+1] elif (n mod 2) = 0 then 9*n-6 else 9*n-9; fi;
end;
[seq(f4(n),n=0..80)];

Join[{1, 4, 10, 16}, LinearRecurrence[{1, 1, -1}, {30, 36, 48}, 62]] (* Jean-François Alcover, Apr 23 2018 *)

Vec((1 + 3*x + 5*x^2 + 3*x^3 + 8*x^4 - 2*x^6) / ((1 - x)^2*(1 + x)) + O(x^60)) \\ Colin Barker, Jan 25 2018

Theorem: For n >= 4, a(n) = 9*n-6 if n is even, otherwise a(n) = 9*n-9.
The proof uses the "coloring book" method described in the Goodman-Strauss & Sloane article. The subgraph H is shown above in the links.
G.f.: -(2*x^6 - 8*x^4 - 3*x^3 - 5*x^2 - 3*x - 1) / ((1 - x)*(1 - x^2)).
a(n) = a(n-1) + a(n-2) - a(n-3) for n>4. - Colin Barker, Jan 25 2018
a(n) = 6*A007494(n-1), n>3. - R. J. Mathar, Jan 29 2018

A298033 Coordination sequence of the Dual(3.4.6.4) tiling with respect to a hexavalent node.

Original entry on oeis.org

1, 6, 12, 24, 30, 42, 48, 60, 66, 78, 84, 96, 102, 114, 120, 132, 138, 150, 156, 168, 174, 186, 192, 204, 210, 222, 228, 240, 246, 258, 264, 276, 282, 294, 300, 312, 318, 330, 336, 348, 354, 366, 372, 384, 390, 402, 408, 420, 426, 438, 444, 456, 462, 474, 480, 492, 498, 510, 516, 528, 534, 546, 552

Offset: 0

N. J. A. Sloane, Jan 21 2018, corrected Jan 24 2018

Also known as the mta net.

This is one of the Laves tilings.

Colin Barker, Table of n, a(n) for n = 0..1000
Chaim Goodman-Strauss and N. J. A. Sloane, A Coloring Book Approach to Finding Coordination Sequences, Acta Cryst. A75 (2019), 121-134, also on NJAS's home page. Also arXiv:1803.08530.
Tom Karzes, Tiling Coordination Sequences
Reticular Chemistry Structure Resource (RCSR), The mta tiling (or net)
N. J. A. Sloane, The Dual(3.4.6.4) tiling
N. J. A. Sloane, The subgraph H shown in one 60-degree sector of the graph of the tiling.
N. J. A. Sloane, Overview of coordination sequences of Laves tilings [Fig. 2.7.1 of Grünbaum-Shephard 1987 with A-numbers added and in some cases the name in the RCSR database]
Index entries for linear recurrences with constant coefficients, signature (1,1,-1).

List of coordination sequences for Laves tilings (or duals of uniform planar nets): [3,3,3,3,3.3] = A008486; [3.3.3.3.6] = A298014, A298015, A298016; [3.3.3.4.4] = A298022, A298024; [3.3.4.3.4] = A008574, A296368; [3.6.3.6] = A298026, A298028; [3.4.6.4] = A298029, A298031, A298033; [3.12.12] = A019557, A298035; [4.4.4.4] = A008574; [4.6.12] = A298036, A298038, A298040; [4.8.8] = A022144, A234275; [6.6.6] = A008458.

Cf. A008574, A038764 (partial sums), A298029 (coordination sequence for a trivalent node), A298031 (coordination sequence for a tetravalent node).

f6:=proc(n) if n=0 then 1 elif (n mod 2) = 0 then 9*n-6 else 9*n-3; fi; end;
[seq(f6(n),n=0..80)];

Join[{1}, LinearRecurrence[{1, 1, -1}, {6, 12, 24}, 62]] (* Jean-François Alcover, Apr 23 2018 *)

Vec((1 + 5*x + 5*x^2 + 7*x^3) / ((1 - x)^2*(1 + x)) + O(x^60)) \\ Colin Barker, Jan 25 2018

apply( {A298033(n)=if(n,n*3\/2*6-6,1)}, [0..66]) \\ M. F. Hasler, Jan 11 2022

Theorem: For n>0, a(n) = 9*n-6 if n is even, a(n) = 9*n-3 if n is odd.
The proof uses the "coloring book" method described in the Goodman-Strauss & Sloane article. The subgraph H is shown above in the links.
G.f.: (1 + 5*x + 5*x^2 + 7*x^3) / ((1 - x)*(1 - x^2)).
First differences are 1, 5, 6, 12, 6, 12, 6, 12, 6, 12, 6, 12, ...
a(n) = a(n-1) + a(n-2) - a(n-3) for n>3. - Colin Barker, Jan 25 2018
a(n) = 6*floor((3n-1)/2) for n > 0. - M. F. Hasler, Jan 11 2022

A158799 a(0)=1, a(1)=2, a(n)=3 for n >= 2.

Original entry on oeis.org

1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3

Offset: 0

Jaume Oliver Lafont, Mar 27 2009

a(n) = number of neighboring natural numbers of n (i.e., n, n - 1, n + 1). a(n) = number of natural numbers m such that n - 1 <= m <= n + 1. Generalization: If a(n,k) = number of natural numbers m such that n - k <= m <= n + k (k >= 1) then a(n,k) = a(n-1,k) + 1 = n + k for 0 <= n <= k, a(n,k) = a(n-1,k) = 2*k + 1 for n >= k + 1. - Jaroslav Krizek, Nov 18 2009
Partial sums of A130716; partial sums give A008486. - Jaroslav Krizek, Dec 06 2009
In atomic spectroscopy, a(n) is the number of P term symbols with spin multiplicity equal to n+1, i.e., there is one singlet-P term (n=0), there are two doublet-P terms (n=1), and there are three P terms for triple multiplicity (n=2) and higher (n>2). - A. Timothy Royappa, Mar 16 2012
a(n+1) is also the domination number of the n-Andrásfai graph. - Eric W. Weisstein, Apr 09 2016
Decimal expansion of 37/300. - Elmo R. Oliveira, May 11 2024
a(n+1) is also the domination number of the n X n rook complement graph. - Eric W. Weisstein, Mar 10 2025

David Applegate, The movie version
Eric Weisstein's World of Mathematics, Andrásfai Graph.
Eric Weisstein's World of Mathematics, Domination Number.
Eric Weisstein's World of Mathematics, Rook Complement Graph.
Index entries for linear recurrences with constant coefficients, signature (1).

Cf. A040000, A122553, A130130, A139250, A157532, A158411, A158478, A158515.

Cf. A008486, A130716.

PadRight[{1,2},120,{3}] (* or *) Min[#,3]&/@Range[120] (* Harvey P. Dale, Apr 08 2018 *)

PARI
```
a(n)=if(n>1,3,if(n<0,0,n++))
```

G.f.: (1+x+x^2)/(1-x) = (1-x^3)/(1-x)^2.
a(n) = (n>=0)+(n>=1)+(n>=2).
a(n) = 1 + n for 0 <= n <= 1, a(n) = 3 for n >= 2. a(n) = A157532(n) for n >= 1. - Jaroslav Krizek, Nov 18 2009
E.g.f.: 3*exp(x) - x - 2 = x^2/(2*G(0)) where G(k) = 1 + (k+2)/(x - x*(k+1)/(x + k + 1 - x^4/(x^3 + (k+1)*(k+2)*(k+3)/G(k+1)))); (continued fraction). - Sergei N. Gladkovskii, Jul 06 2012
a(n) = min(n+1,3). - Wesley Ivan Hurt, Apr 16 2014
a(n) = 1 + A130130(n). - Elmo R. Oliveira, May 11 2024

Corrected by Jaroslav Krizek, Dec 17 2009

A191670 Dispersion of A042968 (>1 and congruent to 1 or 2 or 3 mod 4), by antidiagonals.

Original entry on oeis.org

1, 2, 4, 3, 6, 8, 5, 9, 11, 12, 7, 13, 15, 17, 16, 10, 18, 21, 23, 22, 20, 14, 25, 29, 31, 30, 27, 24, 19, 34, 39, 42, 41, 37, 33, 28, 26, 46, 53, 57, 55, 50, 45, 38, 32, 35, 62, 71, 77, 74, 67, 61, 51, 43, 36, 47, 83, 95, 103, 99, 90, 82, 69, 58, 49, 40, 63

Offset: 1

Clark Kimberling, Jun 11 2011

For a background discussion of dispersions, see A191426.
...
Each of the sequences (4n, n>2), (4n+1, n>0), (3n+2, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The six sequences and dispersions are listed here:
...
A191452=dispersion of A008586 (4k, k>=1)
A191667=dispersion of A016813 (4k+1, k>=1)
A191668=dispersion of A016825 (4k+2, k>=0)
A191669=dispersion of A004767 (4k+3, k>=0)
A191670=dispersion of A042968 (1 or 2 or 3 mod 4 and >=2)
A191671=dispersion of A004772 (0 or 1 or 3 mod 4 and >=2)
A191672=dispersion of A004773 (0 or 1 or 2 mod 4 and >=2)
A191673=dispersion of A004773 (0 or 2 or 3 mod 4 and >=2)
...
EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):
A191452 has 1st col A042968, all else A008486
A191667 has 1st col A004772, all else A016813
A191668 has 1st col A042965, all else A016825
A191669 has 1st col A004773, all else A004767
A191670 has 1st col A008486, all else A042968
A191671 has 1st col A016813, all else A004772
A191672 has 1st col A016825, all else A042965
A191673 has 1st col A004767, all else A004773
...
Regarding the dispersions A191670-A191673, there is a formula for sequences of the type "(a or b or c mod m)", (as in the Mathematica program below):
   If f(n)=(n mod 3), then (a,b,c,a,b,c,a,b,c,...) is given by
   a*f(n+2)+b*f(n+1)+c*f(n), so that "(a or b or c mod m)" is given by
   a*f(n+2)+b*f(n+1)+c*f(n)+m*floor((n-1)/3)), for n>=1.

			Northwest corner:
1....2....3....5....7
4....6....9....13...18
8....11...15...21...29
12...17...23...31...42
16...22...30...41...55

Ivan Neretin, Table of n, a(n) for n = 1..5050 (first 100 antidiagonals, flattened)

Row 1: A155167, Row 2: A171861.

Cf. A008486, A042968, A191673, A191452.

(* Program generates the dispersion array T of the increasing sequence f[n] *)
r = 40; r1 = 12; c = 40; c1 = 12;
a = 2; b = 3; c2 = 5; m[n_] := If[Mod[n, 3] == 0, 1, 0];
f[n_] := a*m[n + 2] + b*m[n + 1] + c2*m[n] + 4*Floor[(n - 1)/3]
Table[f[n], {n, 1, 30}] (* A042968 *)
mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
rows = {NestList[f, 1, c]};
Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
t[i_, j_] := rows[[i, j]];
TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191670 *)
Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191670 *)

A191673 Dispersion of A004773 (>1 and congruent to 0 or 1 or 2 mod 4), by antidiagonals.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 6, 8, 10, 11, 9, 12, 14, 16, 15, 13, 17, 20, 22, 21, 19, 18, 24, 28, 30, 29, 26, 23, 25, 33, 38, 41, 40, 36, 32, 27, 34, 45, 52, 56, 54, 49, 44, 37, 31, 46, 61, 70, 76, 73, 66, 60, 50, 42, 35, 62, 82, 94, 102, 98, 89, 81, 68, 57, 48, 39, 84

Offset: 1

Clark Kimberling, Jun 11 2011

For a background discussion of dispersions, see A191426.
...
Each of the sequences (4n, n>2), (4n+1, n>0), (3n+2, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The six sequences and dispersions are listed here:
...
A191452=dispersion of A008586 (4k, k>=1)
A191667=dispersion of A016813 (4k+1, k>=1)
A191668=dispersion of A016825 (4k+2, k>=0)
A191669=dispersion of A004767 (4k+3, k>=0)
A191670=dispersion of A042968 (1 or 2 or 3 mod 4 and >=2)
A191671=dispersion of A004772 (0 or 1 or 3 mod 4 and >=2)
A191672=dispersion of A004773 (0 or 1 or 2 mod 4 and >=2)
A191673=dispersion of A004773 (0 or 2 or 3 mod 4 and >=2)
...
EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):
A191452 has 1st col A042968, all else A008486
A191667 has 1st col A004772, all else A016813
A191668 has 1st col A042965, all else A016825
A191669 has 1st col A004773, all else A004767
A191670 has 1st col A008486, all else A042968
A191671 has 1st col A016813, all else A004772
A191672 has 1st col A016825, all else A042965
A191673 has 1st col A004767, all else A004773
...
Regarding the dispersions A191670-A191673, there is a formula for sequences of the type "(a or b or c mod m)", (as in the Mathematica program below):
   If f(n)=(n mod 3), then (a,b,c,a,b,c,a,b,c,...) is given by
   a*f(n+2)+b*f(n+1)+c*f(n), so that "(a or b or c mod m)" is given by
   a*f(n+2)+b*f(n+1)+c*f(n)+m*floor((n-1)/3)), for n>=1.

			Northwest corner:
1....2....4....6....9
3....5....8....12...17
7....10...14...20...28
11...16...22...30...41
15...21...29...40...54

Ivan Neretin, Table of n, a(n) for n = 1..5050 (first 100 antidiagonals, flattened)

Cf. A004767, A004773, A191669, A191452.

(* Program generates the dispersion array T of the increasing sequence f[n] *)
r = 40; r1 = 12; c = 40; c1 = 12;
a = 2; b = 4; c2 = 5; m[n_] := If[Mod[n, 3] == 0, 1, 0];
f[n_] := a*m[n + 2] + b*m[n + 1] + c2*m[n] + 4*Floor[(n - 1)/3]
Table[f[n], {n, 1, 30}] (* A004773 *)
mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
rows = {NestList[f, 1, c]};
Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
t[i_, j_] := rows[[i, j]];
TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191673 *)
Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191673 *)

A261953 Start with a single equilateral triangle for n=0; for the odd n-th generation add a triangle at each expandable side of the triangles of the (n-1)-th generation (this is the "side to side" version); for the even n-th generation use the "vertex to vertex" version; a(n) is the number of triangles added in the n-th generation.

Original entry on oeis.org

1, 3, 9, 12, 18, 21, 27, 30, 36, 39, 45, 48, 54, 57, 63, 66, 72, 75, 81, 84, 90, 93, 99, 102, 108, 111, 117, 120, 126, 129, 135, 138, 144, 147, 153, 156, 162, 165, 171, 174, 180, 183, 189, 192, 198, 201, 207, 210, 216, 219, 225, 228, 234, 237, 243, 246, 252

Offset: 0

Kival Ngaokrajang, Sep 06 2015

See a comment on V-V and V-S at A249246.
There are a total of 16 combinations as shown in the table below:
+-------------------------------------------------------+
| Even n-th version    V-V      S-V      V-S      S-S   |
+-------------------------------------------------------+
| Odd n-th  version                                     |
|      V-V           A008486  A248969  A261951  A261952 |
|      S-V           A261950  A008486  A008486  A261956 |
|      V-S           A249246  A008486  A008486  A261957 |
|      S-S             a(n)   A261954  A261955  A008486 |
+-------------------------------------------------------+
Note: V-V = vertex to vertex, S-V = side to vertex,
      V-S = vertex to side,   S-S = side to side.
From Manfred Boergens, Sep 21 2021: (Start)
For finite sets of random points in the real plane with exactly n nearest neighbors, a(n) for n >= 2 is a lower bound for the maximal number of points. Conjecturally, a(n) equals this number.
The randomness provides for pairwise different distances with probability = 1.
A point A is called a nearest neighbor if there is a point B with smaller distance to A than to any other point C.
In graph theory terms: Let G be a finite simple digraph; the vertices of G are arbitrary placed points in R^2 with pairwise different distances; the edges of G are arrows joining each point (tail end) to its nearest neighbor (head end). If G contains exactly n nearest neighbors and b(n) is the maximal number of points in any such graph then a(n) is the best lower bound known as yet for b(n).
a(n) for n >= 2 can be seen as an "inverse" to A347941.
a(n) is built by constructing G with m points and n nearest neighbors, m chosen as maximal as possible, then defining a(n)=m. The start is a(2)=9 and a(3)=12. We call the pairs (m,n)=(9,2) and (m,n)=(12,3) "anchor pairs" and proceed to bigger n by combining graphs with these anchor pairs to bigger graphs. So the next anchor pairs are (18,4), (21,5) and (27,6).
We conjecture that a(n) is optimal. This claim is true if the following assumptions hold:
- The anchor pairs (9,2) and (12,3) are optimal.
- All bigger anchor pairs (m,n) are constructed by combining copies of (9,2) if n is even and adding one (12,3) if n is odd.
(End)

			If the graph G in the comment by Manfred Boergens has 5 nearest neighbors there are at most 21 vertices in G (conjectured; it is proved that there are G with 5 nearest neighbors and 21 vertices but it is not yet proved that 21 is the maximum). - _Manfred Boergens_, Sep 21 2021

Kival Ngaokrajang, Illustration of initial terms
Manfred Boergens, Next-neighbours
Index entries for linear recurrences with constant coefficients, signature (1,1,-1).

Cf. A032766, A008486, A248969, A249246, A347941.

Join[{1}, Table[If[OddQ[n], (9 n - 3)/2, 9 n/2], {n, 1, 100}]] (* Manfred Boergens, Sep 21 2021 *)

{a=3; print1("1, ", a, ", "); for(n=2, 100, if (Mod(n,2)==0, a=a+6, a=a+3); print1(a, ", "))}

a(0)=1, a(1)=3; for n >= 2, a(n) = a(n-1) + 6, if mod(n,2) = 0, otherwise a(n) = a(n-1) + 3.
From Colin Barker, Sep 10 2015: (Start)
a(n) = (3*(-1+(-1)^n+6*n))/4.
a(n) = a(n-1)+a(n-2)-a(n-3) for n>3.
G.f.: (x^3+5*x^2+2*x+1) / ((x-1)^2*(x+1)). (End)
a(n) = 3 * A032766(n) for n>=1. - Michel Marcus, Sep 13 2015
a(0)=1; for n >= 1, a(n) = 9n/2 for even n, a(n) = (9n-3)/2 for odd n. - Manfred Boergens, Sep 21 2021

A191668 Dispersion of A016825 (4k+2, k>0), by antidiagonals.

Original entry on oeis.org

1, 2, 3, 6, 10, 4, 22, 38, 14, 5, 86, 150, 54, 18, 7, 342, 598, 214, 70, 26, 8, 1366, 2390, 854, 278, 102, 30, 9, 5462, 9558, 3414, 1110, 406, 118, 34, 11, 21846, 38230, 13654, 4438, 1622, 470, 134, 42, 12, 87382, 152918, 54614, 17750, 6486, 1878, 534, 166

Offset: 1

Clark Kimberling, Jun 11 2011

For a background discussion of dispersions, see A191426.
...
Each of the sequences (4n, n>2), (4n+1, n>0), (3n+2, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The six sequences and dispersions are listed here:
...
A191452=dispersion of A008586 (4k, k>=1)
A191667=dispersion of A016813 (4k+1, k>=1)
A191668=dispersion of A016825 (4k+2, k>=0)
A191669=dispersion of A004767 (4k+3, k>=0)
A191670=dispersion of A042968 (1 or 2 or 3 mod 4 and >=2)
A191671=dispersion of A004772 (0 or 1 or 3 mod 4 and >=2)
A191672=dispersion of A004773 (0 or 1 or 2 mod 4 and >=2)
A191673=dispersion of A004773 (0 or 2 or 3 mod 4 and >=2)
...
EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):
A191452 has 1st col A042968, all else A008486
A191667 has 1st col A004772, all else A016813
A191668 has 1st col A042965, all else A016825
A191669 has 1st col A004773, all else A004767
A191670 has 1st col A008486, all else A042968
A191671 has 1st col A016813, all else A004772
A191672 has 1st col A016825, all else A042965
A191673 has 1st col A004767, all else A004773
...
Regarding the dispersions A191670-A191673, there is a formula for sequences of the type "(a or b or c mod m)", (as in the Mathematica program below):
   If f(n)=(n mod 3), then (a,b,c,a,b,c,a,b,c,...) is given by
   a*f(n+2)+b*f(n+1)+c*f(n), so that "(a or b or c mod m)" is given by
   a*f(n+2)+b*f(n+1)+c*f(n)+m*floor((n-1)/3)), for n>=1.

			Northwest corner:
.    1   2    6   22    86    342   1366    5462   21846    87382
.    3  10   38  150   598   2390   9558   38230  152918   611670
.    4  14   54  214   854   3414  13654   54614  218454   873814
.    5  18   70  278  1110   4438  17750   70998  283990  1135958
.    7  26  102  406  1622   6486  25942  103766  415062  1660246
.    8  30  118  470  1878   7510  30038  120150  480598  1922390
.    9  34  134  534  2134   8534  34134  136534  546134  2184534
.   11  42  166  662  2646  10582  42326  169302  677206  2708822
.   12  46  182  726  2902  11606  46422  185686  742742  2970966
.   13  50  198  790  3158  12630  50518  202070  808278  3233110

Ivan Neretin, Table of n, a(n) for n = 1..5050 (first 100 antidiagonals, flattened)

Row 1: A047849.

Cf. A000302, A042965, A016825, A191672, A191426.

(* Program generates the dispersion array T of the increasing sequence f[n] *)
r = 40; r1 = 12;  c = 40; c1 = 12;
f[n_] := 4*n-2
Table[f[n], {n, 1, 30}]  (* A016825 *)
mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
rows = {NestList[f, 1, c]};
Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
t[i_, j_] := rows[[i, j]];
TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191668 *)
Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191668 *)
(* Conjectured: *) Grid[Table[(8 + (3*Floor[(4*n + 1)/3] - 2)*4^k)/12, {n, 10}, {k, 10}]] (* L. Edson Jeffery, Feb 14 2015 *)

Conjecture: a(n,k) = (8 + (3*floor((4*n + 1)/3) - 2)*4^k)/12 = (8 + (3*A042965(n+1) - 2)*A000302(k))/12. - L. Edson Jeffery, Feb 14 2015

A191669 Dispersion of A004767 (4k+3, k>=0), by antidiagonals.

Original entry on oeis.org

1, 3, 2, 11, 7, 4, 43, 27, 15, 5, 171, 107, 59, 19, 6, 683, 427, 235, 75, 23, 8, 2731, 1707, 939, 299, 91, 31, 9, 10923, 6827, 3755, 1195, 363, 123, 35, 10, 43691, 27307, 15019, 4779, 1451, 491, 139, 39, 12, 174763, 109227, 60075, 19115, 5803, 1963, 555, 155

Offset: 1

Clark Kimberling, Jun 11 2011

For a background discussion of dispersions, see A191426.
...
Each of the sequences (4n, n>2), (4n+1, n>0), (3n+2, n>=0), generates a dispersion. Each complement (beginning with its first term >1) also generates a dispersion. The six sequences and dispersions are listed here:
...
A191452=dispersion of A008586 (4k, k>=1)
A191667=dispersion of A016813 (4k+1, k>=1)
A191668=dispersion of A016825 (4k+2, k>=0)
A191669=dispersion of A004767 (4k+3, k>=0)
A191670=dispersion of A042968 (1 or 2 or 3 mod 4 and >=2)
A191671=dispersion of A004772 (0 or 1 or 3 mod 4 and >=2)
A191672=dispersion of A004773 (0 or 1 or 2 mod 4 and >=2)
A191673=dispersion of A004773 (0 or 2 or 3 mod 4 and >=2)
...
EXCEPT for at most 2 initial terms (so that column 1 always starts with 1):
A191452 has 1st col A042968, all else A008486
A191667 has 1st col A004772, all else A016813
A191668 has 1st col A042965, all else A016825
A191669 has 1st col A004773, all else A004767
A191670 has 1st col A008486, all else A042968
A191671 has 1st col A016813, all else A004772
A191672 has 1st col A016825, all else A042965
A191673 has 1st col A004767, all else A004773
...
Regarding the dispersions A191670-A191673, there is a formula for sequences of the type "(a or b or c mod m)", (as in the Mathematica program below):
   If f(n)=(n mod 3), then (a,b,c,a,b,c,a,b,c,...) is given by
   a*f(n+2)+b*f(n+1)+c*f(n), so that "(a or b or c mod m)" is given by
   a*f(n+2)+b*f(n+1)+c*f(n)+m*floor((n-1)/3)), for n>=1.

			Northwest corner:
1...3....11....43....171
2...7....27....107...427
4...15...59....235...939
5...19...75....299...1195
6...23...91....363...1451

Ivan Neretin, Table of n, a(n) for n = 1..5050 (first 100 antidiagonals, flattened)

Row 1: A007583, Row 2: A136412.

Cf. A004773, A004767, A191673, A191426.

(* Program generates the dispersion array T of the increasing sequence f[n] *)
r = 40; r1 = 12; c = 40; c1 = 12;
f[n_] := 4*n-1
Table[f[n], {n, 1, 30}] (* A004767 *)
mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
rows = {NestList[f, 1, c]};
Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
t[i_, j_] := rows[[i, j]];
TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]] (* A191669 *)
Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* A191669 *)

cp's OEIS Frontend

A298028 Coordination sequence of Dual(3.6.3.6) tiling with respect to a trivalent node.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A298029 Coordination sequence of Dual(3.4.6.4) tiling with respect to a trivalent node.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A298031 Coordination sequence of Dual(3.4.6.4) tiling with respect to a tetravalent node.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A298033 Coordination sequence of the Dual(3.4.6.4) tiling with respect to a hexavalent node.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A158799 a(0)=1, a(1)=2, a(n)=3 for n >= 2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A191670 Dispersion of A042968 (>1 and congruent to 1 or 2 or 3 mod 4), by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A191673 Dispersion of A004773 (>1 and congruent to 0 or 1 or 2 mod 4), by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica