STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
fQ[n_] := Block[{p = First@ Transpose@ FactorInteger@ n}, Union@ PrimeQ[p + n/p] == {True}]; Select[ Range[2, 1221], fQ@# &] - _(* _Robert G. Wilson v_, May 30 2008 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Number Numbers k > 1 such that p + k/p is prime for every prime p that divides k.
proposed
editing
editing
proposed
A number Number k > 1 is included if such that p + k/p is prime for every prime p that divides k.
proposed
editing