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 A181354 #33 Feb 16 2025 08:33:13
%S A181354 2,2,5,12,25,53,116,249,535,1155,2487,5358,11545,24871,53584,115444,
%T A181354 248715,535841,1154435,2487154,5358411,11544347,24871542,53584111,
%U A181354 115443470,248715414,535841116,1154434691,2487154143,5358411166
%N A181354 Number of n-digit perfect cubes.
%C A181354 a(n) is also the total number of n-digit numbers requiring 1 positive cube in their representation as sum of cubes.
%C A181354 a(n) + A181376(n) + A181378(n) + A181380(n) + A181384(n) + A181401(n) + A181403(n) + A181405(n) + A171386(n) = A052268(n).
%C A181354 Differs from A062941 only at n=1, because 0 is considered a 0-digit, not a 1-digit number here. - _R. J. Mathar_, Jul 09 2011
%H A181354 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/WaringsProblem.html">Waring's Problem</a>.
%F A181354 a(n) = A061439(n) - A061439(n-1).
%p A181354 a:=n->ceil(10^(n/3))-ceil(10^((n-1)/3));
%t A181354 With[{c = Range[4650000]^3}, Length[#]&/@Table[Select[c, IntegerLength[#] == n &], {n, 20}]] (* _Harvey P. Dale_, Feb 01 2011 *)
%t A181354 Differences[Ceiling[10^(Range[0, 30]/3)]]
%Y A181354 Cf. A000578
%K A181354 nonn,base
%O A181354 1,1
%A A181354 _Martin Renner_, Jan 28 2011
%E A181354 More terms from _T. D. Noe_, Feb 01 2011