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 A242041 #18 Aug 17 2014 02:57:27
%S A242041 0,0,0,1,1,1,0,0,1,0,1,1,1,0,1,0,1,1,0,0,1,0,1,0,1,0,0,0,1,1,0,0,0,0,
%T A242041 2,0,2,0,1,0,0,1,1,0,1,0,2,0,0,0,0,0,1,0,1,0,0,0,0,1,0,0,0,0,2,0,1,0,
%U A242041 1,0,0,1,1,0,0,0,2,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,1,0
%N A242041 Number of k >= 1 that make n + k! and n - k! both prime.
%C A242041 0 <= a(n) <= min{A125162(n), A175940(n)}.
%C A242041 a(n) < A020639(n). - _Robert Israel_, Aug 12 2014
%H A242041 Jens Kruse Andersen, <a href="/A242041/b242041.txt">Table of n, a(n) for n = 1..10000</a>
%p A242041 a:= n -> nops(select(k -> isprime(n+k!) and isprime(n-k!),
%p A242041 [$1 ..min(numtheory:-factorset(n))-1])):
%p A242041 0, seq(a(n),n=2..100); # _Robert Israel_, Aug 12 2014
%o A242041 (PARI)
%o A242041 a(n)=c=0;for(k=1,n,if(ispseudoprime(n+k!)&&ispseudoprime(n-k!),c++));return(c)
%o A242041 vector(100,n,a(n))
%Y A242041 Cf. A020639, A125162, A175940.
%K A242041 nonn
%O A242041 1,35
%A A242041 _Derek Orr_, Aug 12 2014