This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A173750 #21 Sep 08 2022 08:45:50
%S A173750 1,1,2,330,714,13530,192660,512820,4601310,863815050,262428279750,
%T A173750 2169289182060,2169289182060,2169289182060,4646092391146085880
%N A173750 a(n) = smallest positive m such that k*m+1 is prime for k=2..n.
%t A173750 a[n_] := Block[{k = If[n < 4, 1, 6], s}, s = k; While[! AllTrue[k Range[2, n] + 1, PrimeQ], k += s]; k]; Array[a, 9] (* _Giovanni Resta_, Mar 30 2017 *)
%o A173750 (Magma) S:=[]; m:=1; for n in [1..11] do while not forall(t){ k: k in [2..n] | IsPrime(k*m+1) } do m+:=1; end while; Append(~S, m); end for; S; // _Klaus Brockhaus_, Nov 26 2010
%Y A173750 Cf. A088250 (smallest number k such that r*k+1 is prime for all r = 1 to n).
%K A173750 nonn,more
%O A173750 1,3
%A A173750 _Zak Seidov_, Nov 26 2010
%E A173750 a(12)-a(15) from _Giovanni Resta_, Mar 31 2017