A104189 - OEIS

%I #17 Mar 15 2023 12:39:38

%S 2,3,5,7,13,19,73,97,241,601,2161,15121,20161,30241,35281,161281,

%T 241921,282241,1088641,1451521,2177281,2903041,10886401,18144001,

%U 29030401,32659201,39916801,199584001,319334401,958003201,2395008001,2874009601

%N Prime numbers arising from Schorn's proof that there are infinitely many primes.

%D Paolo Ribenboim, "The New Book of Prime Number Records", 1996, ISBN 0-387-94457-5 Page 5

%H R. Mestrovic, <a href="http://arxiv.org/abs/1202.3670">Euclid's theorem on the infinitude of primes: a historical survey of its proofs (300 BC--2012) and another new proof</a>, arXiv preprint arXiv:1202.3670 [math.HO], 2012-2018. - From N. J. A. Sloane, Jun 13 2012

%H Peter Schorn, <a href="http://www.schorn.ch/primesproof.html">Schorn's Proof</a>

%H www.mathematic.de, <a href="http://www.mathematic.de/beweise/primenumbers-schorn.html">Schorn's proof</a>

%F n!*i+1, where 1 <= i <= n and n!*i+1 is a prime.

%e 6!*3+1 = 2161 is prime and is a term.

%t lst={}; Do[lst=Join[lst, Select[n!Range[n]+1, PrimeQ]], {n,12}]; lst (* _T. D. Noe_, Nov 02 2006 *)

%K nonn

%O 1,1

%A _Karsten Meyer_, Mar 12 2005; extended Jun 08 2005

%E Corrected by _T. D. Noe_, Nov 02 2006