|
%I #16 Nov 11 2023 11:54:25
%S 13,67,229,6547,129140149,1162261453,68630377364869,
%T 145557834293068928043467566190278008218249525830565939618467
%N Primes of the form 3^k - 14.
%H Robert Price, <a href="/A290244/b290244.txt">Table of n, a(n) for n = 1..9</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^A219038(n) - 14. - _Elmo R. Oliveira_, Nov 11 2023
%t Select[Table[3^k - 14], {k, 3, 100}], PrimeQ[#] &]
%o (PARI) lista(nn) = for(n=3, nn, if(isprime(p=3^n-14), print1(p", "))); \\ _Altug Alkan_, Jul 25 2017
%Y Cf. A000040, A219038 (corresponding k's).
%K nonn
%O 1,1
%A _Robert Price_, Jul 24 2017
| 