OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..12
MAPLE
select(isprime, [seq(3^n - 2^n, n=0..200)]); # Muniru A Asiru, Mar 04 2018
MATHEMATICA
Select[Table[3^n-2^n, {n, 0, 2200}], PrimeQ] (* Vincenzo Librandi, Dec 08 2011 *)
PROG
(Magma) [a: n in [0..300] | IsPrime(a) where a is 3^n - 2^n]; // Vincenzo Librandi, Dec 08 2011
(GAP) Filtered(List([1..200], n->3^n - 2^n), IsPrime); # Muniru A Asiru, Mar 04 2018
(PARI) lista(nn) = for(k=1, nn, if(isprime(p=3^k-2^k), print1(p", "))) \\ Altug Alkan, Mar 04 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 02 2001
STATUS
approved