OFFSET
1,1
FORMULA
a(n) = 3^A217137(n) + 10. - Elmo R. Oliveira, Nov 11 2023
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[3^n + 10] == True, 3^n + 10, 0], {n, 1, 200}]]], 1]
PROG
(Magma) [a: n in [0..250] | IsPrime(a) where a is 3^n+10]; // Vincenzo Librandi, Nov 16 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 01 2005
STATUS
approved