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 A058054 #13 Aug 13 2015 19:35:56 %S A058054 1,2,6,14,8,12,54,30,22,14,30,90,20,90,76,90,78,190,60,62,104,186,204, %T A058054 190,96,44,168,254,108,188,80,38,290,174,258,98,44,170,136,132,176, %U A058054 180,156,292,190,312,156,142,158,450,120,130,350,132,610,384,392,430 %N A058054 Smallest prime > n! minus largest prime <= n!. %H A058054 Hans Havermann, <a href="/A058054/b058054.txt">Table of n, a(n) for n = 2..2000</a> %F A058054 a(n) = A037151(n) - A006990(n) %F A058054 a(n) = A033932(n) + A033933(n) %e A058054 For n = 2, 3, 4, 5, A037151(n) = 3, 7, 29, 127 and A006990(n) = 2, 5, 23, 113. The differences are: 1, 2, 6, 14. %p A058054 [seq(nextprime(i!)-prevprime(i!+1), i=2...100)]; %t A058054 f[n_] := NextPrime[n!] - NextPrime[n!, -1]; Array[f, 70, 3] (* _Robert G. Wilson v_, Jul 23 2014 *) %Y A058054 Cf. A006990, A037151, A033932, A033933. %Y A058054 Essentially the same as A054588. %K A058054 nonn %O A058054 2,2 %A A058054 _Labos Elemer_, Nov 20 2000 %E A058054 Edited by _Hans Havermann_, Jul 23 2014