|
%I #21 Nov 11 2023 11:08:55
%S 11,13,19,37,739,6571,387420499,150094635296999131,
%T 57264168970223481226273458862846808078011946899,
%U 2465034704958067503996131453373943813074726512397600979
%N Primes of the form 3^k + 10.
%F a(n) = 3^A217137(n) + 10. - _Elmo R. Oliveira_, Nov 11 2023
%t a = Delete[Union[Flatten[Table[If [PrimeQ[3^n + 10] == True, 3^n + 10, 0], {n, 1, 200}]]], 1]
%o (Magma) [a: n in [0..250] | IsPrime(a) where a is 3^n+10]; // _Vincenzo Librandi_, Nov 16 2010
%Y Cf. A000040, A217137 (corresponding k's).
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 01 2005
| 