login
A366474
Where n appears in A337136, or -1 if n never appears.
2
1, 2, 3, 5, 4, 6, 8, 7, 9, 10, 35, 13, 22, 16, 18, 19, 33, 23, 11, 25, 27, 26, 64, 29, 32, 31, 34, 36, 12, 37, 20, 38, 40, 39, 44, 42, 45, 46, 43, 47, 14, 48, 28, 49, 51, 50, 21, 53, 52, 55, 56, 58, 15, 59, 61, 60, 62, 63, 228, 65, 99, 24, 69, 68, 67, 71, 17, 76
OFFSET
1,2
LINKS
MATHEMATICA
nn = 120; c[_] := 0; Array[Set[{a[#], c[#]}, {#, #}] &, 2]; Set[{i, j, u}, Range[3]]; s = i + j;
Do[k = u; While[Or[c[k] > 0, CoprimeQ[s, k]], k++];
Set[{a[n], c[k], i, j, s}, {k, n, j, k, j + k}];
If[k == u, While[c[u] > 0, u++]], {n, 3, nn}], n];
TakeWhile[Array[c, nn], # > 0 &] (* Michael De Vlieger, Oct 26 2023 *)
CROSSREFS
Cf. A337136.
Sequence in context: A353006 A337136 A361314 * A138606 A166013 A089864
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 26 2023
STATUS
approved