A248802 Smallest prime factor of 2^(2^n+2) + 3.
11, 19, 67, 13, 262147, 13, 1669, 13, 255127, 13, 2383, 13, 67, 13, 32544331, 13, 271, 13, 4057, 13
Offset: 0
Programs
-
Mathematica
PrimeFactors[n_]:= Flatten[Table[#[[1]], {1}]&/@FactorInteger[n]]; Table[PrimeFactors[2^(2^n + 2) + 3] [[1]], {n, 0, 7}] (* Vincenzo Librandi, Oct 15 2014 *)
-
PARI
a(n) = factor(2^(2^n+2) + 3)[1, 1]; \\ Michel Marcus, Oct 15 2014
-
PARI
for(n=1,19,my(x=2^(2^n+2)+3);forprime(k=3,oo,if(x%k==0,print1(k,", ");break))) \\ Hugo Pfoertner, Aug 08 2019
Formula
Smallest prime factor of 4*A000215(n) - 1, with the Fermat numbers A000215. - Wolfdieter Lang, Nov 05 2014
Comments