OFFSET
1,1
COMMENTS
Corresponding exponents k are listed in A004061. - Alexander Adamchuk, Jan 23 2007
FORMULA
MATHEMATICA
Do[f=(5^n-1)/4; If[PrimeQ[f], Print[{n, f}]], {n, 1, 1000}] (* Alexander Adamchuk, Jan 23 2007 *)
Select[(5^Range[300]-1)/4, PrimeQ] (* Harvey P. Dale, Dec 11 2016 *)
PROG
(PARI) forprime(p=2, 1e3, my(n=5^p\4); if(ispseudoprime(n), print1(n", "))) \\ Sjoerd J. Schaper, Nov 23 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 23 2003
EXTENSIONS
More terms from Alexander Adamchuk, Jan 23 2007
STATUS
approved
