|
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, 11939, 199, 257, 127, 127, 337, 257, 524287, 73, 1093, 547, 137, 241, 1093, 547, 331, 131071, 1093, 599479, 8191, 137, 127, 8191
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|