OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..16
FORMULA
a(n) = 3^A217136(n) + 8. - Elmo R. Oliveira, Nov 09 2023
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[3^n + 8] == True, 3^n + 8, 0], {n, 1, 200}]]], 1]
Select[Table[3^n+8, {n, 0, 200}], PrimeQ] (* Vincenzo Librandi, Jul 19 2012 *)
PROG
(Magma) [ a: n in [0..100] | IsPrime(a) where a is 3^n+8 ]; // Vincenzo Librandi, Jul 19 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 01 2005
STATUS
approved