OFFSET
0,2
COMMENTS
MATHEMATICA
aa = {}; Do[k = Denominator[(n - 6)/(2 n)]; If[PrimeQ[k], AppendTo[aa, n]], {n, 1, 1000}]; aa (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 29 2008
STATUS
approved