%I A139454
%S A139454 2,5,6,9,10,11,12,17,18,23,36,48,62,87,112,131
%N A139454 Numbers n such that primorial(n)/2 - 512 is prime.
%t A139454 k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 512], Print[n]; AppendTo[a, 
               n]], {n, 2, 325}]; a (*Artur Jasinski*)
%Y A139454 Cf. A067026, A067027, A139439, A139440, A139441, A139442, A139443, A139444, 
               A139445, A139446, A139447, A139448, A139449, A139450, A139451, A139452, 
               A139453, A139454, A139455, A139456, A139457, A103514.
%Y A139454 Sequence in context: A136369 A007573 A143909 this_sequence A028946 A031461 
               A085183
%Y A139454 Adjacent sequences: A139451 A139452 A139453 this_sequence A139455 A139456 
               A139457
%K A139454 nonn
%O A139454 1,1
%A A139454 Artur Jasinski (grafix(AT)csl.pl), Apr 21 2008