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
Keywords
Links
- Scott R. Shannon, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
Comments