OFFSET
1,1
FORMULA
a(n)= 10^A110918(n) + 91.
MATHEMATICA
Select[10^Range[10] + 91, PrimeQ] (* Alonso del Arte, Mar 01 2016 *)
PROG
(PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(p=10^n+91), print1(p, ", "))); \\ Altug Alkan, Apr 16 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Mironov Alexander, Mar 01 2016
STATUS
approved