1,1

Table of n, a(n) for n=1..69.

scn[n_]:=Module[{k=n+1}, While[!CompositeQ[k]||!CoprimeQ[n, k] || !CompositeQ[ k-n], k++]; k]; Array[scn, 70] (* Harvey P. Dale, Jul 26 2019 *)

Equals A122984(n) + n. Cf. A096076.

Sequence in context: A227900 A010817 A205973 * A255622 A209511 A115148

Adjacent sequences: A122982 A122983 A122984 * A122986 A122987 A122988

easy,nonn

Franklin T. Adams-Watters, Sep 22 2006

approved