OFFSET
1,2
FORMULA
{k : A175933(k)=0}. - R. J. Mathar, Nov 03 2010
MATHEMATICA
fQ[n_] := Block[{pp = Select[ FoldList[Times, 1, Prime@ Range@ 20], # <= n &]}, Last@ Union@ PrimeQ[n - pp] == False]; Select[ Range@ 170, fQ] (* Robert G. Wilson v, Nov 05 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Oct 29 2010
EXTENSIONS
Corrected (90 removed) and extended by R. J. Mathar and Robert G. Wilson v, Nov 03 2010
STATUS
approved