A062661 Numbers k such that 95^k - 94^k is prime.

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

Links

Table of n, a(n) for n=1..4.

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

Crossrefs

Cf. A000043, A057468, A059801, A059802, A062572-A062666.

Sequence in context: A252811 A252804 A257746 * A044393 A044774 A138627

Adjacent sequences: A062658 A062659 A062660 * A062662 A062663 A062664

Keyword

nonn,hard,more

Author

Mike Oakes, May 18 2001, May 19 2001

Status

approved