OFFSET
1,1
LINKS
Chris K. Caldwell's The Top Twenty, Primorial.
Romeo Mestrovic, Euclid's theorem on the infinitude of primes: a historical survey of its proofs (300 BC--2012) and another new proof, arXiv preprint arXiv:1202.3670 [math.HO], 2012. - N. J. A. Sloane, Jun 13 2012
MATHEMATICA
Select[FoldList[Times, 1, Prime[Range[70]]], PrimeQ[# - 1] &] - 1 (* Harvey P. Dale, Jan 27 2014 *)
PROG
(Haskell)
a057705 n = a057705_list !! (n-1)
a057705_list = filter ((== 1) . a010051) a057588_list
-- Reinhard Zumkeller, Mar 27 2013
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Labos Elemer, Oct 24 2000
STATUS
approved