A058045 Numbers k such that (5^k + k)/3 is prime.

1, 8, 572, 4778, 12884

Offset

1,2

Comments

a(6) > 20065. - Jinyuan Wang, Jan 27 2020

Links

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

Mathematica

Do[ If[ PrimeQ[ (5^n + n)/3 ], Print[ n ] ], {n, 1, 5000} ]

Prog

(PARI) is(n)=ispseudoprime((5^n+n)/3) \\ Charles R Greathouse IV, Jun 13 2017

Crossrefs

Sequence in context: A240300 A240432 A275932 * A086641 A248706 A325292

Adjacent sequences: A058042 A058043 A058044 * A058046 A058047 A058048

Keyword

nonn,more

Author

Robert G. Wilson v, Nov 17 2000

Extensions

a(5) from Jinyuan Wang, Jan 27 2020

Status

approved