A139446 Numbers n such that primorial(n)/2 - 32 is prime.

4, 5, 6, 8, 10, 12, 23, 38, 50, 65, 67, 95, 100, 108, 114, 281, 835, 894, 1103, 3442, 6629

Offset: 1

Author

Artur Jasinski, Apr 21 2008

Keywords

• nonn

Comments

a(22) > 25,000. - Robert Price, Jan 02 2017

Crossrefs

Cf. A067026, A067027, A139439-A139457, A103514.

Programs

Mathematica

k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 32] && k>32, Print[n]; AppendTo[a, n]], {n, 2, 325}]; a

Extensions

Drop 2,3 and correct program, a(17)-a(19) from Ray Chandler, Jun 16 2013

a(20)-a(21) from Robert Price, Jan 02 2017