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 A367864 #11 Dec 30 2023 23:55:05 %S A367864 1,4,6,20,10,102,14,352,270,1370,22,8340,26,24234,16410,110512,34, %T A367864 551754,38,1944880,817992,7760258,46,39190392,265700,135208502, %U A367864 42190254,570003392,58,2631501240,62,9701577536,2128920354,39671306930,48694870,179231802444,74 %N A367864 a(n) = Sum_{d|n} d * binomial(n,d). %F A367864 a(p) = 2p, for p prime. %F A367864 a(n) = n * A271654(n). - _Alois P. Heinz_, Dec 03 2023 %p A367864 a:= n-> n*add(binomial(n-1, d-1), d=numtheory[divisors](n)): %p A367864 seq(a(n), n=1..50); # _Alois P. Heinz_, Dec 03 2023 %t A367864 Table[Sum[d*Binomial[n, d], {d, Divisors[n]}], {n, 50}] %o A367864 (PARI) a(n) = sumdiv(n, d, d * binomial(n,d)); \\ _Michel Marcus_, Dec 03 2023 %Y A367864 Cf. A056045, A271654. %K A367864 nonn,easy %O A367864 1,2 %A A367864 _Wesley Ivan Hurt_, Dec 03 2023