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 A013941 #23 Jun 26 2022 22:45:58 %S A013941 0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,4,4,4,4,4,5,5,5, %T A013941 5,5,5,5,5,6,6,6,6,6,6,6,6,7,7,7,7,7,7,8,8,9,9,9,9,9,9,9,9,10,10,10, %U A013941 10,10,10,10,10,11,11,11,11 %N A013941 a(n) = Sum_{k = 1..n} floor(n/prime(k)^3). %F A013941 G.f.: (1/(1 - x))*Sum_{k>=1} x^(prime(k)^3)/(1 - x^(prime(k)^3)). - _Ilya Gutkovskiy_, Feb 11 2017 %p A013941 A013941:=n->add(floor(n/ithprime(k)^3), k=1..n): seq(A013941(n), n=1..150); # _Wesley Ivan Hurt_, Jan 29 2017 %t A013941 Table[Floor[Sum[n/Prime[k]^3, {k, n}]], {n, 75}] (* _Alonso del Arte_, Jan 29 2017 *) %o A013941 (PARI) a(n) = sum(k = 1, n, n\prime(k)^3); \\ _Michel Marcus_, Aug 24 2013 %Y A013941 Cf. A013940. %Y A013941 Partial sums of A295659. %K A013941 nonn,easy %O A013941 1,16 %A A013941 _N. J. A. Sloane_, _Henri Lifchitz_