[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