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 A347527 #14 Sep 06 2021 03:03:32
%S A347527 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,20,21,23,24,26,27,29,30,32,
%T A347527 33,35,36,38,39,41,42,44,45,47,48,50,51,53,54,56,57,59,60,62,63,65,66,
%U A347527 68,69,71,72,74,75,77,78,80,81,83,84,86,87,89,90,92,93,95,96,98,99,101,102
%N A347527 Partial sums of A347526.
%H A347527 Seiichi Manyama, <a href="/A347527/b347527.txt">Table of n, a(n) for n = 1..10000</a>
%F A347527 G.f.: (1/(1 - x)) * Sum_{k>=1} x^(k^4)/(1 - x^k).
%t A347527 f[n_] := DivisorSum[n, 1 &, # <= n^(1/4) &]; Accumulate @ Array[f, 100] (* _Amiram Eldar_, Sep 05 2021 *)
%o A347527 (PARI) a(n) = sum(k=1, n, sumdiv(k, d, d^4<=k));
%o A347527 (PARI) N=99; x='x+O('x^N); Vec(sum(k=1, N^(1/4), x^k^4/(1-x^k))/(1-x))
%Y A347527 Cf. A006218, A013938, A094820, A347517, A347526.
%K A347527 nonn
%O A347527 1,2
%A A347527 _Seiichi Manyama_, Sep 05 2021