OFFSET
1,2
COMMENTS
a(26) > 10^5. - Michael S. Branicky, Oct 25 2024
MATHEMATICA
Select[Range[10000], PrimeQ[#^3 + 3*# + 3^#]&]
PROG
(PARI) is(n)=ispseudoprime(n^3+3*n+3^n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more,changed
AUTHOR
Vincenzo Librandi, Jan 07 2013
EXTENSIONS
a(21)-a(25) from Michael S. Branicky, Jul 13 2023
STATUS
approved