OFFSET
1,2
MATHEMATICA
nn=15; Complement[Range[nn^2], Flatten[Table[c=2^n; c+Prime[ Range[ PrimePi[ c]]], {n, 2, nn}]]] (* Harvey P. Dale, Sep 14 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 07 2006
STATUS
approved