login
A259530
Numbers k such that 136^k - 135^k is prime.
0
2, 7, 53, 103, 1171, 1699, 5953, 29131
OFFSET
1,1
MATHEMATICA
Select[Range[2, 200], PrimeQ[(136^# - 135^#)] &] (* Vincenzo Librandi, Jul 01 2015 *)
PROG
(Magma) [n: n in [0..200] | IsPrime(136^n-135^n)]; // Vincenzo Librandi, Jul 01 2015
(PARI) is(n)=ispseudoprime(136^n-135^n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Cf. A254298.
Sequence in context: A005588 A106898 A106899 * A119772 A104084 A053465
KEYWORD
nonn,more
AUTHOR
Michael P. May, Jun 29 2015
EXTENSIONS
a(5)-a(6) from Vincenzo Librandi, Jul 01 2015
a(7) from Tim Johannes Ohrtmann, Mar 16 2018
a(8) from Michael S. Branicky, Oct 14 2024
STATUS
approved