|
|
A129736
|
|
Primes of the form 4^n - 3^n.
|
|
3
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
select(isprime, [seq(4^n - 3^n, n=0..100)]); # Muniru A Asiru, Feb 09 2018
|
|
MATHEMATICA
|
fQ[n_] := If[PrimeQ[4^n - 3^n], 4^n - 3^n, Nothing]; Array[fQ, 300] (* Robert G. Wilson v, Feb 12 2018 *)
|
|
PROG
|
(Magma) [a: n in [0..300] | IsPrime(a) where a is 4^n-3^n] // Vincenzo Librandi, Nov 23 2010]
(GAP) Filtered(List([1..100], n -> 4^n-3^n), IsPrime); # Muniru A Asiru, Feb 09 2018
(PARI) lista(nn) = for(k=1, nn, if(isprime(p=4^k-3^k), print1(p", "))) \\ Altug Alkan, Mar 03 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|