A366956 Numbers k such that 3^k*k^3 - 2 is a prime.
3, 15, 23, 53, 79, 1767, 2325, 2553, 8355, 12707, 13377, 17265, 30165, 45807, 65773, 98981
Offset: 1
Programs
-
Magma
[k: k in [1..500] | IsPrime(3^k*k^3-2)];
-
Mathematica
Select[Range[3000], PrimeQ[3^#*#^3 - 2] &] (* Amiram Eldar, 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