OFFSET
1,1
COMMENTS
Corresponding n are given in A058046.
The next term has 254 digits.
MATHEMATICA
Select[Table[5^n - n, {n, 400}], PrimeQ]
PROG
(Magma) [a: n in [0..400] | IsPrime(a) where a is 5^n-n];
(PARI) forstep(n=2, 1e4, 2, if(ispseudoprime(t=5^n-n), print1(t", "))) \\ Charles R Greathouse IV, Jun 08 2016
CROSSREFS
KEYWORD
nonn,bref
AUTHOR
Vincenzo Librandi, Jun 05 2016
STATUS
approved