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 A038767 #26 Aug 09 2024 13:01:40
%S A038767 1,2,3,4,6,13,19,28,41,66,85,371,437,726,924,1063,3401,6714
%N A038767 Numbers k for which k-th primorial + square of (k+1)-th prime is also a prime.
%C A038767 r = prime(n+1)^2 is the smallest possible composite number that, if added to the n-th primorial, might give a prime.
%F A038767 a(n) = A002110(n) + prime(n+1)^2 is prime; n so that A054758(n)=1.
%e A038767 a(5)=6, 6th primorial is 30030, square of 7th prime is 289, sum gives 30319, a prime.
%t A038767 Block[{a = {}, p = 1, q = 1}, Do[q = NextPrime[q]; If[PrimeQ[p + q^2], AppendTo[a, i]]; p *= q, {i, 1200}]; Rest[a] - 1] (* _Michael De Vlieger_, Jan 03 2021 *)
%o A038767 (PARI) isok(n) = ispseudoprime(prime(n+1)^2 + prod(j=1, n, prime(j))); \\ _Michel Marcus_, Aug 26 2019
%Y A038767 Cf. A002110, A054758, A106155, A245694.
%K A038767 nonn,more
%O A038767 1,2
%A A038767 _Labos Elemer_, May 04 2000
%E A038767 a(12)-a(14) from _Michel Marcus_, Aug 26 2019
%E A038767 a(15)-a(16) (due to _Jon E. Schoenfield_ at A245694) from _Bill McEachen_, Jan 03 2021
%E A038767 a(17) from _Michael S. Branicky_, Jun 09 2023
%E A038767 a(18) from _Michael S. Branicky_, Aug 09 2024