|
%I #4 Jul 26 2019 16:34:37
%S 9,27,25,25,9,55,15,33,25,49,15,77,21,39,49,25,21,95,25,69,25,49,27,
%T 49,33,35,35,55,33,121,35,57,49,49,39,85,45,63,49,49,45,185,49,65,49,
%U 55,51,125,55,77,55,77,57,119,63,65,65,85,63,203,65,77,85,85,69,91,75,77,77
%N Smallest composite number greater than n, relatively prime to n, such that a(n)-n is also composite.
%t 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 *)
%Y Equals A122984(n) + n. Cf. A096076.
%K easy,nonn
%O 1,1
%A _Franklin T. Adams-Watters_, Sep 22 2006
|
