OFFSET
1,1
EXAMPLE
31,41,61,281, etc. are primes.
MATHEMATICA
With[{prs=Prime[Range[100]]}, Table[SelectFirst[prs, PrimeQ[10n*#+1]&], {n, 100}]] (* The program uses the SelectFirst function from Mathematica version 10 *) (* Harvey P. Dale, Apr 27 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 03 2003
EXTENSIONS
More terms from David Wasserman, Sep 13 2005
STATUS
approved