A062658 - OEIS

%I #18 Jul 04 2021 09:02:47

%S 3,827,9439,27701,36683

%N Numbers k such that 92^k - 91^k is prime.

%C Terms greater than 1000 are often only strong pseudoprimes.

%C a(6) > 10^5. - _Robert Price_, Aug 05 2015

%t Select[Range[0, 10000], If[PrimeQ[#], PrimeQ[92^# - 91^#]] &]  (* _Robert Price_, Aug 05 2015 *)

%o (PARI) is_ok(n)=isprime(92^n-91^n);

%o 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 */

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

%K nonn,hard

%O 1,1

%A _Mike Oakes_, May 18 2001, May 19 2001

%E a(4)-a(5) from _Robert Price_, Aug 05 2015 (Computer run by Adam Marciniec)