%I #27 Oct 15 2024 08:29:44
%S 2,7,53,103,1171,1699,5953,29131
%N Numbers k such that 136^k - 135^k is prime.
%t Select[Range[2, 200], PrimeQ[(136^# - 135^#)] &] (* _Vincenzo Librandi_, Jul 01 2015 *)
%o (Magma) [n: n in [0..200] | IsPrime(136^n-135^n)]; // _Vincenzo Librandi_, Jul 01 2015
%o (PARI) is(n)=ispseudoprime(136^n-135^n) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A254298.
%K nonn,more
%O 1,1
%A _Michael P. May_, Jun 29 2015
%E a(5)-a(6) from _Vincenzo Librandi_, Jul 01 2015
%E a(7) from _Tim Johannes Ohrtmann_, Mar 16 2018
%E a(8) from _Michael S. Branicky_, Oct 14 2024