|
|
A139444
|
|
Numbers n such that primorial(n)/2 - 16 is prime.
|
|
5
|
|
|
4, 7, 9, 13, 22, 26, 30, 33, 36, 38, 42, 114, 125, 126, 181, 291, 296, 386, 1415, 2573, 3727, 5574, 7523, 8682, 9765
(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 - 16] && k>16, Print[n]; AppendTo[a, n]], {n, 2, 752}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Drop 2 and correct program, a(16)-a(20) from Ray Chandler, Jun 16 2013
|
|
STATUS
|
approved
|
|
|
|