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 A347516 #18 Sep 05 2021 07:39:05 %S A347516 1,1,1,1,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,2,2,1,3,1,2,2,2, %T A347516 1,3,1,2,2,2,1,3,1,2,2,2,1,3,1,2,2,2,1,3,1,2,2,2,1,3,1,2,2,3,1,3,1,3, %U A347516 2,2,1,4,1,2,2,3,1,3,1,3,2,2,1,4,1,2,2,3,1,3,1,3,2,2,1,4,1,2,2,3,1,3,1,3,2 %N A347516 Number of divisors of n that are at most n^(1/3). %H A347516 Seiichi Manyama, <a href="/A347516/b347516.txt">Table of n, a(n) for n = 1..10000</a> %F A347516 G.f.: Sum_{k>=1} x^(k^3)/(1 - x^k). %t A347516 a[n_] := DivisorSum[n, 1 &, # <= n^(1/3) &]; Array[a, 100] (* _Amiram Eldar_, Sep 04 2021 *) %o A347516 (PARI) a(n) = sumdiv(n, d, d^3<=n); %o A347516 (PARI) N=99; x='x+O('x^N); Vec(sum(k=1, N^(1/3), x^k^3/(1-x^k))) %Y A347516 Cf. A000005, A010057, A038548, A347517. %K A347516 nonn %O A347516 1,8 %A A347516 _Seiichi Manyama_, Sep 04 2021