OFFSET
1,1
MATHEMATICA
Select[Range[3000], PrimeQ[3^#*#^3 - 2] &] (* Amiram Eldar, Oct 30 2023 *)
PROG
(Magma) [k: k in [1..500] | IsPrime(3^k*k^3-2)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Oct 30 2023
EXTENSIONS
a(10)-a(12) from Amiram Eldar, Oct 30 2023
a(13)-a(14) from Hugo Pfoertner, Oct 31 2023
a(15) from Michael S. Branicky, Nov 04 2023
a(16) from Michael S. Branicky, Aug 25 2024
STATUS
approved