OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 26 2023
STATUS
approved