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
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