A082101 Primes of form 2^k + 3^k.
2, 5, 13, 97
Offset: 1
Keywords
Examples
m=0: 1+1, m=1: 2+3, m=2: 4+9, m=4: 16+81.
Programs
-
Mathematica
a={}; Do[If[PrimeQ[p=2^n+3^n], AppendTo[a, p]], {n, 0, 10^3}]; a (* Vladimir Joseph Stephan Orlovsky, Aug 07 2008 *) Select[Table[2^k+3^k,{k,0,100}],PrimeQ] (* Harvey P. Dale, May 14 2014 *)
-
PARI
print1(2);for(n=0,99,if(ispseudoprime(t=2^(2^n)+3^(2^n)),print1(", "t))) \\ Charles R Greathouse IV, Jul 19 2011
Comments