|
Search: id:A139454
|
|
|
| A139454 |
|
Numbers n such that primorial(n)/2 - 512 is prime. |
|
+0
24
|
|
| 2, 5, 6, 9, 10, 11, 12, 17, 18, 23, 36, 48, 62, 87, 112, 131
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 512], Print[n]; AppendTo[a, n]], {n, 2, 325}]; a (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A067026, A067027, A139439, A139440, A139441, A139442, A139443, A139444, A139445, A139446, A139447, A139448, A139449, A139450, A139451, A139452, A139453, A139454, A139455, A139456, A139457, A103514.
Sequence in context: A136369 A007573 A143909 this_sequence A028946 A031461 A085183
Adjacent sequences: A139451 A139452 A139453 this_sequence A139455 A139456 A139457
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Apr 21 2008
|
|
|
Search completed in 0.002 seconds
|
