|
|
A139450
|
|
Numbers n such that primorial(n)/2 - 128 is prime.
|
|
5
|
|
|
6, 7, 17, 26, 32, 40, 43, 391, 435, 1509, 1629, 2906, 3525, 5670, 8586, 12103, 12528, 16682
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 128]&&k>128, Print[n]; AppendTo[a, n]], {n, 2, 325}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Drop 3,4 and correct program, a(9)-a(12) from Ray Chandler, Jun 16 2013
|
|
STATUS
|
approved
|
|
|
|