A379166 Numbers in A379165 that share a factor with both previous terms, in order of appearance.

6, 10, 18, 20, 16, 24, 28, 36, 42, 38, 40, 48, 54, 50, 56, 60, 62, 64, 72, 75, 70, 78, 74, 76, 84, 88, 96, 102, 98, 100, 108, 114, 110, 112, 118, 120, 126, 130, 132, 136, 138, 144, 150, 156, 154, 160, 162, 158, 164, 166, 168, 174, 180, 176, 182, 186, 190, 192, 194, 196, 204, 200, 206, 210, 214, 216, 228, 230, 226, 234, 240, 238, 244, 246, 248, 250, 258, 260

Offset

1,1

Comments

See A379165 for further details.

Links

Scott R. Shannon, Table of n, a(n) for n = 1..10000

Mathematica

nn = 2^8; c[_] := False; i = 1; j = 2; c[1] = c[2] = True; u = 3;
Reap[Do[k = u;
  While[
    Or[c[k], Nor[And[#1, #2], Nor[#1, #2]]] &[
     CoprimeQ[k, i], CoprimeQ[k, j]], k++];
  Set[{c[k], i, j}, {True, j, k}];
  If[AllTrue[{{i, k}, {j, k}}, ! CoprimeQ[##] & @@ # &], Sow[k] ];
If[k == u, While[c[u], u++]], {n, 3, nn}] ][[-1, 1]] (* Michael De Vlieger, Dec 20 2024 *)

Crossrefs

Cf. A379165, A353239, A098550, A336957, A064413.

Sequence in context: A020718 A048587 A351661 * A116001 A111617 A315359

Adjacent sequences: A379163 A379164 A379165 * A379167 A379168 A379169

Keyword

nonn

Author

Scott R. Shannon, Dec 17 2024

Status

approved