Search: id:A139454 Results 1-1 of 1 results found. %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 Search completed in 0.001 seconds