|
|
A102907
|
|
Primes of the form 3^n+10.
|
|
10
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|