|
%I #20 Jul 04 2021 09:14:04
%S 61,157,823,877
%N Numbers k such that 95^k - 94^k is prime.
%C a(5) > 20000. - _Derek Orr_, Sep 09 2014
%C a(5) > 10^5. - _Robert Price_, Sep 28 2015
%t Select[Range[0, 100000], If[PrimeQ[#], PrimeQ[95^# - 94^#]] &] (* _Robert Price_, Sep 28 2015 *)
%o (PARI)
%o forprime(p=1,20000,if(ispseudoprime(95^p-94^p),print1(p,", "))) \\ _Derek Orr_, Sep 09 2014
%Y Cf. A000043, A057468, A059801, A059802, A062572-A062666.
%K nonn,hard,more
%O 1,1
%A _Mike Oakes_, May 18 2001, May 19 2001
|
