|
%I #12 Sep 08 2022 08:45:16
%S 11,13,19,37,739,6571,387420499,150094635296999131,
%T 57264168970223481226273458862846808078011946899,
%U 2465034704958067503996131453373943813074726512397600979
%N Primes of the form 3^n+10.
%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
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 01 2005
|
