OFFSET
1,1
COMMENTS
Terms greater than 1000 are often only strong pseudoprimes.
a(6) > 10^5. - Robert Price, Aug 05 2015
MATHEMATICA
Select[Range[0, 10000], If[PrimeQ[#], PrimeQ[92^# - 91^#]] &] (* Robert Price, Aug 05 2015 *)
PROG
(PARI) is_ok(n)=isprime(92^n-91^n);
first(m)=my(v=vector(m), k=3); v[1]=3; for(i=2, m, while(!is_ok(k), k++); print1(k, ", "); v[i]=k; k++; ); v; /* Anders Hellström, Aug 05 2015 */
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
Mike Oakes, May 18 2001, May 19 2001
EXTENSIONS
a(4)-a(5) from Robert Price, Aug 05 2015 (Computer run by Adam Marciniec)
STATUS
approved