%I #9 May 02 2015 07:48:45
%S 19,113,3628789,39916787,479001587,87178291183,
%T 8841761993739701954543615999969,
%U 4274883284060025564298013753389399649690343788366813724671999999999941
%N Primes of the form k! - p, where p is the smallest prime > k.
%C The next term (a(9)) has 121 digits. - _Harvey P. Dale_, May 02 2015
%t For[n = 1, n < 60, n++, If[PrimeQ[n! - Prime[PrimePi[n] + 1]], Print[n! - Prime[PrimePi[n] + 1]]]] (Steinerberger)
%t Select[Table[n!-NextPrime[n],{n,100}],PrimeQ] (* _Harvey P. Dale_, May 02 2015 *)
%Y Cf. A084750.
%K nonn
%O 1,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 16 2003
%E More terms from _Stefan Steinerberger_, Feb 06 2006
|