%I M2007 #56 Oct 21 2023 15:52:16

%S 2,11,101,13,137,9091,9901,909091,5882353,52579,27961,8779,99990001,

%T 1058313049,121499449,9091,69857,21993833369,999999000001,

%U 909090909090909091,5964848081,909091,1056689261,549797184491917

%N Largest prime factor of 10^n + 1.

%D J. Brillhart et al., Factorizations of b^n +- 1. Contemporary Mathematics, Vol. 22, Amer. Math. Soc., Providence, RI, 2nd edition, 1985; and later supplements.

%D Ehrhard Behrends, Five-Minute Mathematics, translated by David Kramer. American Mathematical Society (2008) p. 7.

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%H <a href="/A003021/b003021.txt">Table of n, a(n) for n = 0..331</a>

%H J. Brillhart et al., <a href="http://dx.doi.org/10.1090/conm/022">Factorizations of b^n +- 1</a>, Contemporary Mathematics, Vol. 22, Amer. Math. Soc., Providence, RI, 3rd edition, 2002.

%H T. Granlund, <a href="http://gmplib.org/~tege/fac10p.txt">Factors of 10^n + 1</a>.

%H Makoto Kamada, <a href="https://stdkmd.net/nrr/repunit/10001.htm">Factorizations of 100...001</a>.

%H S. S. Wagstaff, Jr., <a href="http://www.cerias.purdue.edu/homes/ssw/cun/index.html">The Cunningham Project</a>.

%F a(n) = A006530(A062397(n)). - _Vincenzo Librandi_, Jul 12 2016

%t Table[FactorInteger[10^n + 1][[-1, 1]], {n, 0, 29}] (* _Alonso del Arte_, Oct 21 2011 *)

%o (PARI) for(n=0, 1e2, p=factor(10^n+1)[omega(10^n+1), 1]; print1(p, ", ")) \\ _Felix Fröhlich_, Aug 13 2014

%o (Magma) [Maximum(PrimeDivisors(10^n+1)): n in [0..40]]; // _Vincenzo Librandi_, Jul 12 2016

%Y Cf. A006530, A062397.

%K nonn,easy

%O 0,1

%A _N. J. A. Sloane_

%E More terms from _Jason Earls_, Jul 11 2001

%E Terms up to a(280) in b-file from _D. S. McNeil_, Oct 22 2011

%E a(281)-a(310) in b-file from _Ray Chandler_, May 02 2017

%E a(311)-a(331) in b-file from _Max Alekseyev_, Apr 24 2019, Feb 13 2020, May 13 2022