login
Smallest prime factor of 2^n-3.
2

%I #21 Sep 12 2022 08:39:23

%S 1,5,13,29,61,5,11,509,1021,5,4093,19,16381,5,13,53,11,5,1048573,773,

%T 4194301,5,16777213,479,37,5,11,536870909,23,5,9241,29,5113,5,242819,

%U 47189,11,5,13,23,47,5,5927,2087,227,5,11,19,59,5,13,2203,36217,5,181

%N Smallest prime factor of 2^n-3.

%H Amiram Eldar, <a href="/A093810/b093810.txt">Table of n, a(n) for n = 2..626</a> (terms 2..200 from Vincenzo Librandi)

%F a(n) = A020639(A036563(n)). - _Amiram Eldar_, Sep 12 2022

%t PrimeFactors[n_] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; Table[ PrimeFactors[2^n - 3][[1]], {n, 2, 60}] (* _Robert G. Wilson v_, May 24 2004 *)

%t FactorInteger[#][[1,1]]&/@(2^Range[2,60]-3) (* _Harvey P. Dale_, Aug 21 2016 *)

%Y Cf. A020639, A036563, A050414, A050415, A093817.

%K nonn

%O 2,2

%A _Yasutoshi Kohmoto_, May 11 2004

%E More terms from _Robert G. Wilson v_, May 24 2004