%I #16 Sep 05 2021 19:39:42
%S 23,41,317,3371,45259,119671
%N Numbers k such that (144^k + 1)/145 is prime.
%C The corresponding primes are terms of A059055. - _Bernard Schott_, Aug 09 2019
%t Do[p=Prime[n]; If[PrimeQ[(144^p + 1)/145], Print[p]], {n, 1, 1000000}]
%o (PARI) is(n)=ispseudoprime((144^n+1)/145)
%Y Cf. A000978, A007658, A057171, A057172, A057173, A057175, A001562, A057177, A057178, A057179, A057180, A057181, A057182, A057183, A057184, A057185, A057186, A057187, A057188, A057189, A057190, A057191, A071380, A071381, A071382, A126856, A185240.
%K nonn,more
%O 1,1
%A _Paul Bourdelais_, Aug 06 2019