login
A062661
Numbers k such that 95^k - 94^k is prime.
0
61, 157, 823, 877
OFFSET
1,1
COMMENTS
a(5) > 20000. - Derek Orr, Sep 09 2014
a(5) > 10^5. - Robert Price, Sep 28 2015
MATHEMATICA
Select[Range[0, 100000], If[PrimeQ[#], PrimeQ[95^# - 94^#]] &] (* Robert Price, Sep 28 2015 *)
PROG
(PARI)
forprime(p=1, 20000, if(ispseudoprime(95^p-94^p), print1(p, ", "))) \\ Derek Orr, Sep 09 2014
KEYWORD
nonn,hard,more
AUTHOR
Mike Oakes, May 18 2001, May 19 2001
STATUS
approved