[seqfan] Re: A140294
T. D. Noe
noe at sspectra.com
Wed Mar 27 17:11:04 CET 2013
At 3:57 PM +0000 3/27/13, Harvey P. Dale wrote:
> I cannot generate the terms of the above sequence from its
>definition or the example.
> Best,
> Harvey
>
>
>
>_______________________________________________
>
>Seqfan Mailing list - http://list.seqfan.eu/
Works for me. Try
Primorial[p_] := Times @@ Prime[Range[PrimePi[p]]];
Select[Range[194], PrimeQ[#!/Primorial[#] + 1] &]
Best regards,
Tony
More information about the SeqFan
mailing list