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 A062458 #10 Aug 24 2025 12:20:22 %S A062458 1,4,7,9,12,15,18,20,23,26,29,31,34,37,39,42,45,48,50,53,56,58,61,64, %T A062458 67,69,72,75,77,80,83,86,88,91,94,96,99,102,105,107,110,113,116,118, %U A062458 121,124,126,129,132,135,137,140,143,145,148,151,154,156,159,162,164 %N A062458 Nearest integer to (n+1)^(n+1)/n^n. %F A062458 For n>0: a(n)=round(exp(1)*(n+1/2-1/24/n)). Coming from: (n+1)^(n+1)/n^n=exp(1)*(n+1/2-1/24/n)+O(1/n^2) - _Benoit Cloitre_, Apr 24 2008 %t A062458 Join[{1},Table[Round[(1+n)^(1+n)/n^n],{n,60}]] (* _Harvey P. Dale_, Aug 24 2025 *) %o A062458 (PARI) a(n)=if(n<1,1,round(exp(1)*(n+1/2-1/24/n))) \\ _Benoit Cloitre_, Apr 24 2008 %Y A062458 Cf. A060644. %K A062458 nonn,easy,changed %O A062458 0,2 %A A062458 _Olivier Gérard_, Jun 23 2001 %E A062458 Previous Mathematica program replaced by _Harvey P. Dale_, Aug 24 2025