A057900 Numbers k such that 3^k + k is prime.

2, 8, 34, 1532, 18248

Offset

1,1

Comments

Note that if n > 2 and n+1 is prime then (by Fermat's theorem) n+1 divides 3^n+n.

If it exists, a(6) > 100000. - Hugo Pfoertner, Mar 01 2024

Links

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

Mathematica

Do[ If[ PrimeQ[ 3^n + n ], Print[ n ] ], {n, 0, 3000} ]
v={2}; Do[If[EvenQ[n]&&Mod[n, 3]!=0&&!PrimeQ[n+1]&&PrimeQ[3^n+n], v=Append[v, n]; Print[v]], {n, 3, 19000}]
Select[Range[18500], PrimeQ[3^#+#]&] (* Harvey P. Dale, Jul 23 2013 *)

Prog

(PARI) is(n)=ispseudoprime(3^n+n) \\ Charles R Greathouse IV, May 22 2017

Crossrefs

Cf. A104743, A052007, A057909.

Sequence in context: A346413 A013026 A121789 * A116618 A037723 A037618

Adjacent sequences: A057897 A057898 A057899 * A057901 A057902 A057903

Keyword

nonn,hard,more

Author

Robert G. Wilson v, Nov 16 2000

Extensions

18248 from Farideh Firoozbakht, Aug 21 2003

Status

approved