|
%I #11 Aug 04 2022 15:03:48
%S 0,0,1,0,5,0,1,2,1,0,5,0,1,2,1,0,5,0,1,2,3,0,5,6,1,8,1,0,11,0,3,2,1,2,
%T 5,0,1,2,1,0,23,0,1,2,3,0,5,4,1,2,3,0,5,4,1,8,1,0,17,0,5,2,1,2,5,0,1,
%U 8,1,0,5,0,3,2,1,4,5,0,1,2,3,0,11,4,1,8,3,0,11,6,3,2,1,2,5,0,1,2,1,0
%N Largest k such that 1^2 + n, 2^2 + n, ..., k^2 + n are composite.
%H Harvey P. Dale, <a href="/A316568/b316568.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A085099(n) - 1.
%t lk[n_]:=Module[{k=1},While[CompositeQ[k^2+n],k++];k-1]; Array[lk,100] (* _Harvey P. Dale_, Aug 04 2022 *)
%Y Cf. A085099.
%K nonn
%O 1,5
%A _Seiichi Manyama_, Jul 06 2018
|
