A057871 Numbers k such that 3*13^k + 2 is prime.

0, 1, 2, 22, 25, 35, 49, 95, 105, 107, 302, 351, 1907, 3435, 5051, 6885

Offset

1,3

Comments

a(17) > 10000. - Jinyuan Wang, Feb 02 2020

Links

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

Mathematica

Do[ If[ PrimeQ[ 3*13^n + 2 ], Print[ n ] ], {n, 0, 1500} ]
Select[Range[0, 4000], PrimeQ[(3*13^# + 2)] &] (* Vincenzo Librandi, Sep 28 2012 *)

Prog

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

Crossrefs

Cf. A058025 (3*13^k - 2 is prime).

Sequence in context: A022373 A111751 A037416 * A152243 A074160 A368406

Adjacent sequences: A057868 A057869 A057870 * A057872 A057873 A057874

Keyword

nonn,more

Author

Robert G. Wilson v, Nov 15 2000

Extensions

a(13)-a(14) from Vincenzo Librandi, Sep 28 2012

a(15)-a(16) from Jinyuan Wang, Feb 02 2020

Status

approved