OFFSET
1,2
COMMENTS
No other terms <= 100000. - Robert Price, Mar 03 2011
MATHEMATICA
lst={}; Do[If[PrimeQ[10^n+13], AppendTo[lst, n]], {n, 10^4}]; lst [Vladimir Joseph Stephan Orlovsky, Aug 20 2008]
PROG
(PARI) for(n=1, 1e4, if(ispseudoprime(10^n+13), print1(n", "))) \\ Charles R Greathouse IV, Jul 19 2011
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jason Earls, Jul 05 2004
EXTENSIONS
More terms from Ryan Propper, Sep 07 2005
5 more terms from Jason Earls, Feb 08 2008
a(23)=65426 from Robert Price, Jan 09 2011
a(24) and a(25) = 75441,76705 from Robert Price, Jan 29 2011
STATUS
approved