This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A347415 #23 Sep 14 2021 02:20:13 %S A347415 1,3,6,11,18,31,48,76,118,184,279,426,641,966,1448,2163,3228,4805, %T A347415 7137,10586,15681,23198,34278,50606,74632,109987,161954,238312,350432, %U A347415 514999,756407,1110391,1629219,2389346,3502578,5132354,7517523,11007078,16110784,23573102,34480937,50420909 %N A347415 a(n) = Sum_{k=1..n} floor((n/k)^k). %H A347415 Seiichi Manyama, <a href="/A347415/b347415.txt">Table of n, a(n) for n = 1..5000</a> %F A347415 a(n) ~ sqrt(2*Pi*n) * exp(exp(-1)*n - 1/2). - _Vaclav Kotesovec_, Sep 14 2021 %e A347415 a(3) = [3/1] + [(3/2)^2] + [(3/3)^3] = 3 + 2 + 1 = 6. %t A347415 a[n_] := Sum[Floor[(n/k)^k], {k, 1, n}]; Array[a, 40] (* _Amiram Eldar_, Aug 31 2021 *) %o A347415 (PARI) a(n) = sum(k=1, n, n^k\k^k); %Y A347415 Cf. A006218, A062071, A153818, A344675, A345176, A347416. %K A347415 nonn %O A347415 1,2 %A A347415 _Seiichi Manyama_, Aug 31 2021