%I #12 Sep 08 2022 08:45:17
%S 29,59,239,1319,46679,60466199,101559956668439,170581728179578208279,
%T 293242067884135544935936513642647623193965101079,
%U 39503678872633023420521946711466143994775346134750732502780781099164095188067917234199
%N Primes of the form 6^k + 23.
%t a = Delete[Union[Flatten[Table[If [PrimeQ[6^n + 23] == True, 6^n + 23, 0], {n, 1, 1000}]]], 1]
%o (Magma) [ a: n in [0..250] | IsPrime(a) where a is 6^n+23 ]; // _Vincenzo Librandi_, Nov 18 2010
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 05 2005
%E Last term corrected by _D. S. McNeil_ and _N. J. A. Sloane_, Aug 17 2010