|
|
|
|
3, 4, 8, 14, 62, 182, 1372, 2522, 7562, 38272, 415802, 1247402, 16313472, 114107904, 570257104, 1161216000, 21043021824, 57893308852, 1099944846002, 5530978026000, 39437046917604, 425165932107504, 10235889009520064, 29233062045242352, 146100174169950002, 1917846796927501440, 5805987050510562240, 39918123659008838880
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a[n_] := DivisorSigma[1, 1 + Product[FactorInteger[k][[-1, 1]], {k, 1, n}]]; Array[a, 30] (* Amiram Eldar, Feb 12 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|