login
A245442
Numbers n such that (50^n - 1)/49 is prime.
2
3, 5, 127, 139, 347, 661, 2203, 6521, 210319
OFFSET
1,1
COMMENTS
a(9) > 10^5.
All terms are prime.
LINKS
Harvey Dubner, Generalized repunit primes, Math. Comp., 61 (1993), 927-930.
MAPLE
A245442:=n->`if`(isprime((50^n - 1)/49), n, NULL); seq(A245442(n), n=1..100000); # Wesley Ivan Hurt, Apr 12 2014
MATHEMATICA
Select[Prime[Range[100000]], PrimeQ[(50^# - 1)/49] &]
PROG
(PARI) is(n)=ispseudoprime((50^n-1)/49) \\ Charles R Greathouse IV, Jun 13 2017
KEYWORD
hard,more,nonn
AUTHOR
Robert Price, Jul 22 2014
EXTENSIONS
a(9)=210319 corresponds to a probable prime discovered by Paul Bourdelais, Aug 04 2020
STATUS
approved