OFFSET
1,1
MATHEMATICA
nn=3881; Sort@Select[Join[Range[11, nn, 90], Range[1, nn, 90]], PrimeQ] (* Zak Seidov, Dec 27 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 06 2004
EXTENSIONS
Edited by N. J. A. Sloane, Feb 04 2008
STATUS
approved