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 A074165 #5 Aug 02 2018 19:31:35
%S A074165 4,6,13,15,16,23,28,46,126,148,285
%N A074165 Numbers n such that n!!! is an interprime.
%C A074165 No additional terms up to n = 700. - _Harvey P. Dale_, Aug 02 2018
%t A074165 PrevPrim[n_] := Block[{k = n - 1}, While[ ! PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; NFactorialM[n_, m_] := Block[{k = n, p = n}, While[k > m, k -= m; p = p*k]; p]; Do[ a = NFactorialM[n, 3]; If[2a == PrevPrim[a] + NextPrim[a], Print[n]], {n, 3, 500}]
%t A074165 npipQ[n_]:=Module[{p=Times@@Range[n,1,-3]},p==Mean[{NextPrime[ p], NextPrime[ p,-1]}]]; Select[Range[300],npipQ] (* _Harvey P. Dale_, Aug 02 2018 *)
%Y A074165 Cf. A053709 & A074176.
%K A074165 nonn
%O A074165 1,1
%A A074165 _Robert G. Wilson v_, Sep 16 2002