OFFSET
1,1
EXAMPLE
107 = 3*5*7+2.
MATHEMATICA
mx = 50; ps = Prime[Range[2, mx + 1]]; t = Table[ps[[i]]*ps[[j]]*ps[[k]] + 2, {i, mx}, {j, i + 1, mx}, {k, j + 1, mx}]; Select[Union[Flatten[t]], # <= 3*5*ps[[-1]] + 2 && PrimeQ[#] &] (* T. D. Noe, May 01 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, May 01 2012
STATUS
approved