%I #9 Apr 17 2016 12:25:30
%S 101,191,1091,10091,100000000091,1000000000091,1000000000000091
%N Primes of the form 10^n + 91.
%F a(n)= 10^A110918(n) + 91.
%t Select[10^Range[10] + 91, PrimeQ] (* _Alonso del Arte_, Mar 01 2016 *)
%o (PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(p=10^n+91), print1(p, ", "))); \\ _Altug Alkan_, Apr 16 2016
%Y Cf. A110918.
%K nonn
%O 1,1
%A _Mironov Alexander_, Mar 01 2016
|