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 A329167 #8 Apr 03 2023 10:36:13 %S A329167 9,11,15,25,29,47,55,67,119,171,331,475,549,819,1151,1543,2303,2749, %T A329167 3303,3649,4065,4261,4497,4873,9105,12749,18677,20121,22459,32489, %U A329167 35765,46971,75843,79585,79731 %N A329167 Numbers k such that k![4] - 32 is prime, where k![4] = A007662(k) = quadruple factorial. %C A329167 a(36) > 10^5. %C A329167 The first 4 primes associated with this sequence are: 13, 199, 3433, 5221093. %H A329167 C. K. Caldwell, The Prime Glossary, <a href="https://t5k.org/glossary/page.php/MultifactorialPrime.html">multifactorial prime</a> %H A329167 C. Caldwell and H. Dubner (Eds): <a href="https://t5k.org/lists/top_ten/">The top ten prime numbers: from the unpublished collections of R. Ondrejka</a> (May 2001), Table 21 F, p. 75. %H A329167 Ken Davis, <a href="http://mfprimes.free-dc.org">Status of Search for Multifactorial Primes</a>. %H A329167 Joe McLean, <a href="http://web.archive.org/web/20091027034731/http://uk.geocities.com/nassarawa%40btinternet.com/probprim2.htm">Interesting Sources of Probable Primes</a> %t A329167 MultiFactorial[n_, k_] := If[n < 1, 1, n*MultiFactorial[n - k, k]]; %t A329167 Select[Range[1000], (x = MultiFactorial[#, 4] - 32; x > 0 && PrimeQ[x]) &] %Y A329167 Cf. A007662, A283553. %K A329167 nonn %O A329167 1,1 %A A329167 _Robert Price_, Nov 06 2019