OFFSET
1,3
MATHEMATICA
Select[Range[5000], PrimeQ[3^# + 100] &]
PROG
(PARI) is(n)=ispseudoprime(3^n+100) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Vincenzo Librandi, Dec 01 2012
EXTENSIONS
a(44)-a(50) from Michael S. Branicky, Jul 14 2023
a(1)=0 inserted and a(51)-a(52) from Michael S. Branicky, Oct 24 2024
STATUS
approved