reviewed

approved

proposed

reviewed

editing

proposed

Amiram Eldar, <a href="/A333986/b333986.txt">Table of n, a(n) for n = 1..1000</a>

approved

editing

proposed

approved

editing

proposed

f[1] = 2; f[n_] := f[n] = DivisorSigma[1, f[n - 1]]; Table[FactorInteger[f[n]][[-1, 1]], {n, 50}] (* Amiram Eldar, Sep 23 2020 *)

proposed

editing

editing

proposed

Michel Marcus: there was a small glitch

Richard Peterson: Okay by me!

2, 3, 2, 7, 2, 5, 3, 5, 7, 5, 7, 5, 127, 7, 8191, 5, 127, 13, 31, 127, 127, 89, 31, 17, 127, 31, 3221, 179, 151, 127, 8191, 13, 262657, 13, 11939, 199, 257, 127, 127, 337, 257, 524287, 73, 1093, 547, 137, 241, 1093, 547, 331, 131071, 1093, 599479, 8191, 137, 127, 8191

nonn,more,changed

More terms from Michel Marcus, Sep 16 2020

proposed

editing

Michel Marcus: ok ?

editing

proposed