A120851 Numbers n such that n is prime and is equal to the product of the first k primes minus the sum of the first k primes, for some k.
193, 29989, 13082761331669749
Offset: 1
Examples
193 = -(2+3+5+7)+(2*3*5*7) and 193 is prime.
Programs
-
Mathematica
tb = {}; Do[pq = -Plus @@ Prime[Range[1, k]] + Times @@ Prime[Range[1, k]]; If[PrimeQ[pq], AppendTo[tb, pq]], {k, 1, 200}]; tb
Extensions
The next term is too large to include.
Comments