A309413 Numbers k such that (50^k + 1)/51 is prime.

1153, 26903, 56597

Offset

1,1

Links

Table of n, a(n) for n=1..3.

P. Bourdelais, A Generalized Repunit Conjecture

Mathematica

Do[p=Prime[n]; If[PrimeQ[(50^p + 1)/51], Print[p]], {n, 1, 1000000}]

Prog

(PARI) is(n)=ispseudoprime((50^n+1)/51)

Crossrefs

Sequence in context: A330266 A020382 A185689 * A378717 A046390 A234498

Adjacent sequences: A309410 A309411 A309412 * A309414 A309415 A309416

Keyword

nonn,bref,more

Author

Paul Bourdelais, Jul 29 2019

Status

approved