The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #12 Nov 09 2023 11:26:29
%S 17,71,233,719,6551,129140153,387420479,10460353193,31381059599,
%T 150094635296999111,1350851717672992079,36472996377170786393,
%U 58149737003040059690390159,523347633027360537213511511,443426488243037769948249630619149892793
%N Prime numbers of the form 3^k - 10.
%H Robert Price, <a href="/A290243/b290243.txt">Table of n, a(n) for n = 1..21</a>
%H F. Firoozbakht, M. F. Hasler, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL13/Hasler/hasler2.html">Variations on Euclid's formula for Perfect Numbers</a>,JIS 13 (2010) #10.3.1.
%H Henri & Renaud Lifchitz, <a href="http://www.primenumbers.net/prptop">PRP Records</a>
%H OpenPFGW Project, <a href="http://sourceforge.net/projects/openpfgw/">Primality Tester</a>
%F a(n) = 3^A217347(n) - 10. - _Elmo R. Oliveira_, Nov 09 2023
%t Select[Table[3^k - 10], {k, 3, 100}], PrimeQ[#] &]
%o (PARI) lista(nn) = for(n=3, nn, if(isprime(p=3^n-10), print1(p", "))); \\ _Altug Alkan_, Jul 24 2017
%Y Cf. A000040, A217347 (corresponding k's).
%K nonn
%O 1,1
%A _Robert Price_, Jul 24 2017