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 A035128 #19 Feb 16 2025 08:32:37 %S A035128 1,2,5,379 %N A035128 Rotating digits of a(n)^3 right once still yields a cube. %C A035128 Cubes resulting in leading zeros excluded. %H A035128 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a> %e A035128 379^3 = 54439939 -> 95443993 = 457^3. %t A035128 Select[Range[500], IntegerQ @ Surd[FromDigits @ RotateRight @ IntegerDigits[#^3], 3] &] (* _Amiram Eldar_, Oct 08 2019 *) %o A035128 (Magma) [k:k in [1..100000]| IsPower(Seqint((Intseq(Floor(k^3/10)) cat [Intseq(k^3)[1]])),3)]; // _Marius A. Burtea_, Oct 08 2019 %Y A035128 Cf. A045877, A035129, A035130. %K A035128 nonn,base,hard %O A035128 1,2 %A A035128 _Patrick De Geest_, Nov 15 1998