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 A118719 #20 Sep 08 2022 08:45:25
%S A118719 0,1,8,64,125,343,512,1000,1331,2197,2744,4096,4913,6859,8000,10648,
%T A118719 12167,15625,17576,21952,24389,29791,32768,39304,42875,50653,54872,
%U A118719 64000,68921,79507,85184,97336,103823,117649,125000,140608,148877
%N A118719 Cubes for which the digital root is also a cube.
%C A118719 All cubes have a digital root 1,8 or 9. (except for the number 0) So this sequence contains all cubes with a digital root which is not 9.
%C A118719 This sequence is 0 union A016779 union A016791.
%H A118719 Vincenzo Librandi, <a href="/A118719/b118719.txt">Table of n, a(n) for n = 1..3000</a>
%F A118719 a(n) = (floor(3*n/2)-2)^3 for n >= 2. - _Nathaniel Johnston_, May 05 2011
%F A118719 G.f.: x^2*(1+7*x+53*x^2+40*x^3+53*x^4+7*x^5+x^6)/((1+x)^3*(1-x)^4). a(n) = A001651(n-1)^3 for n>1. - _Bruno Berselli_, May 05 2011
%F A118719 Sum_{n>=2} 1/a(n) = 26*zeta(3)/27. - _Amiram Eldar_, Dec 19 2020
%e A118719 64 is in the sequence because (1) it is a cube and (2) the digital root 1 is also a cube.
%t A118719 Join[{0}, Table[(3*k + {1, 2})^3, {k, 0, 15}] // Flatten] (* _Amiram Eldar_, Dec 19 2020 *)
%o A118719 (Magma) [0] cat [(6*n+(-1)^n-9)^3 div 64: n in [2..37]]; // _Bruno Berselli_, May 05 2011
%o A118719 (PARI) a010888(n)=if(n, (n-1)%9+1)
%o A118719 lista(nn) = {for (n=0, nn, if (ispower(a010888(n^3), 3), print1(n^3, ", ")););} \\ _Michel Marcus_, Feb 18 2015
%Y A118719 Cf. A000578, A002117, A010888, A116978.
%K A118719 base,easy,nonn
%O A118719 1,3
%A A118719 Luc Stevens (lms022(AT)yahoo.com), May 21 2006