STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Seiichi Manyama, <a href="/A356238/b356238.txt">Table of n, a(n) for n = 1..386</a>
approved
editing
proposed
approved
editing
proposed
a[n_] := Sum[(k * Floor[n/k])^n, {k, 1, n}]; Array[a, 18] (* Amiram Eldar, Jul 30 2022 *)
proposed
editing
editing
proposed
1, 8, 62, 849, 8541, 206345, 2581403, 76623522, 1617299079, 49463993875, 952905453423, 59000021366675, 1198427462876421, 54128102218676115, 2321105129608323165, 117387839988330848902, 3205342976298888473968, 268263812478494295219717