OFFSET
1,3
COMMENTS
a(17) > 10000. - Jinyuan Wang, Feb 02 2020
a(17) > 40000. - Michael S. Branicky, Jul 10 2024
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
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