This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A093810 #21 Sep 12 2022 08:39:23 %S A093810 1,5,13,29,61,5,11,509,1021,5,4093,19,16381,5,13,53,11,5,1048573,773, %T A093810 4194301,5,16777213,479,37,5,11,536870909,23,5,9241,29,5113,5,242819, %U A093810 47189,11,5,13,23,47,5,5927,2087,227,5,11,19,59,5,13,2203,36217,5,181 %N A093810 Smallest prime factor of 2^n-3. %H A093810 Amiram Eldar, <a href="/A093810/b093810.txt">Table of n, a(n) for n = 2..626</a> (terms 2..200 from Vincenzo Librandi) %F A093810 a(n) = A020639(A036563(n)). - _Amiram Eldar_, Sep 12 2022 %t A093810 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 A093810 FactorInteger[#][[1,1]]&/@(2^Range[2,60]-3) (* _Harvey P. Dale_, Aug 21 2016 *) %Y A093810 Cf. A020639, A036563, A050414, A050415, A093817. %K A093810 nonn %O A093810 2,2 %A A093810 _Yasutoshi Kohmoto_, May 11 2004 %E A093810 More terms from _Robert G. Wilson v_, May 24 2004