OFFSET
1,1
MATHEMATICA
Select[Range[400], PrimeQ[111# + 1] &] (* Harvey P. Dale, Jan 04 2011 *)
PROG
(PARI) is(n)=isprime(111*n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 25 2010
STATUS
approved
