OFFSET
1,1
MATHEMATICA
nn = 200; Sort[Reap[Do[n = Prime[i] * Prime[j] - i - j; If[n <= nn, Sow[n]], {i, PrimePi[nn/2]}, {j, i}]][[2, 1]]] (* T. D. Noe, Mar 16 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, May 30 2010
EXTENSIONS
Corrected (replaced 75 by 81) by R. J. Mathar, May 31 2010
STATUS
approved