|
%I #15 Nov 10 2023 20:28:26
%S 11,17,89,251,6569,1594331,4782977,3486784409,1350851717672992097,
%T 984770902183611232889,5474401089420219382077155933569751771,
%U 969773729787523602876821942164080815560169
%N Primes of the form 3^k + 8.
%H Vincenzo Librandi, <a href="/A102870/b102870.txt">Table of n, a(n) for n = 1..16</a>
%F a(n) = 3^A217136(n) + 8. - _Elmo R. Oliveira_, Nov 09 2023
%t a = Delete[Union[Flatten[Table[If [PrimeQ[3^n + 8] == True, 3^n + 8, 0], {n, 1, 200}]]], 1]
%t Select[Table[3^n+8,{n,0,200}],PrimeQ] (* _Vincenzo Librandi_, Jul 19 2012 *)
%o (Magma) [ a: n in [0..100] | IsPrime(a) where a is 3^n+8 ]; // _Vincenzo Librandi_, Jul 19 2012
%Y Cf. A000040, A217136 (corresponding k's).
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 01 2005
|
