OFFSET
0,1
FORMULA
MATHEMATICA
Table[FactorInteger[11^n + 1][[-1, 1]], {n, 0, 20}] (* Vincenzo Librandi, Jul 12 2016 *)
PROG
(PARI) for(n=0, 22, print(factor(11^n+1)))
(PARI) { for (n=0, 80, f=factor(11^n + 1)~; write("b062308.txt", n, " ", f[1, length(f)]) ) } \\ Harry J. Smith, Aug 04 2009
(Magma) [Maximum(PrimeDivisors(11^n+1)): n in [0..40]]; // Vincenzo Librandi, Jul 12 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 12 2001
EXTENSIONS
Terms to a(80) in b-file from Harry J. Smith, Jun 01 2010
a(81)-a(301) in b-file from Amiram Eldar, Feb 08 2020
a(302)-a(325) in b-file from Max Alekseyev, Apr 25 2022, Oct 11 2023
STATUS
approved