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 A357051 #39 Aug 23 2023 08:42:22 %S A357051 1,4,10,37,82,352,730,2998,7291,26488,59050,263170,531442,2127952, %T A357051 5373460,19669879,43046722,187086916,387420490,1607136634,3878987860, %U A357051 13947314752,31381059610,139902374692,285916320883,1129719740248,2824682785300,10460357985970 %N A357051 a(n) = Sum_{d|n} 3^(n-d). %F A357051 G.f.: Sum_{k>=1} 3^(k-1) * x^k/(1 - 3^(k-1) * x^k). %F A357051 G.f.: Sum_{k>=1} x^k/(1 - (3 * x)^k). %t A357051 a[n_] := DivisorSum[n, 3^(n-#) &]; Array[a, 28] (* _Amiram Eldar_, Aug 23 2023 *) %o A357051 (PARI) a(n) = sumdiv(n, d, 3^(n-d)); %o A357051 (PARI) my(N=30, x='x+O('x^N)); Vec(sum(k=1, N, 3^(k-1)*x^k/(1-3^(k-1)*x^k))) %o A357051 (PARI) my(N=30, x='x+O('x^N)); Vec(sum(k=1, N, x^k/(1-(3*x)^k))) %Y A357051 Cf. A074854, A112329, A359206. %Y A357051 Cf. A342628, A342629, A359203. %K A357051 nonn,easy %O A357051 1,2 %A A357051 _Seiichi Manyama_, Dec 20 2022