|
%I #18 Nov 02 2023 19:00:37
%S 0,1,9,13,27,45,169,285,307,891,4545,9173,20803
%N Numbers m such that 3^k*k^3 + 2 is a prime.
%C If it exists, a(14) > 70000. - _Hugo Pfoertner_, Nov 02 2023
%t Select[Range[0, 5000], PrimeQ[3^#*#^3 + 2] &] (* _Amiram Eldar_, Nov 02 2023 *)
%o (Magma) [k: k in [1..310] | IsPrime(3^k*k^3+2)];
%Y Cf. A366956.
%K nonn,more
%O 1,3
%A _Juri-Stepan Gerasimov_, Oct 31 2023
%E a(12)-a(13) from _Michael S. Branicky_, Oct 31 2023
|
