%I
%S 3,5,8,10,12,13,23,26,30,33,38,114,162,219,265,268,277,344,463,651,
%T 877,1128,2466,2594
%N Numbers n such that n*n!  NextPrime[n] is prime.
%C The corresponding next prime has more than 6239 digits.
%e 8 is in the sequence because 8*8!  11 is prime.
%t << NumberTheory`NumberTheoryFunctions`;v={};Do[If[PrimeQ [n*n!NextPrime[n]], v=Append[v, n];Print[v]], {n, 2150}]
%Y Cf. A096986, A090704, A049433.
%K more,nonn
%O 1,1
%A _Farideh Firoozbakht_, Jul 31 2004
%E More terms from _Ryan Propper_, Jan 01 2008
