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 A145464 #15 Oct 04 2020 19:26:48
%S A145464 0,1,64,125,216,729,1000,1331,2744,4096,6859,8000,9261,13824,15625,
%T A145464 17576,24389,27000,29791,39304,46656,59319,64000,68921,85184,91125,
%U A145464 97336,117649,125000,132651,157464,175616,205379,216000,226981,262144,274625,328509,343000
%N A145464 Cubes ending in a square.
%C A145464 Cube and ending square may be equal.
%H A145464 Harvey P. Dale, <a href="/A145464/b145464.txt">Table of n, a(n) for n = 1..1000</a>
%p A145464 q:= n-> (s-> ormap(x-> issqr(parse(x)),
%p A145464 [s[i..-1]$i=1..length(s)]))(""||n):
%p A145464 select(q, [i^3$i=0..120])[]; # _Alois P. Heinz_, Mar 16 2020
%t A145464 eisQ[n_]:=AnyTrue[NestWhileList[FromDigits[Rest[IntegerDigits[ #]]]&,n,#> 9&],IntegerQ[ Sqrt[ #]]&]; Select[Range[0,70]^3,eisQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 04 2020 *)
%Y A145464 Cf. A038678 squares ending in a (different) square.
%K A145464 base,nonn
%O A145464 1,3
%A A145464 _Zak Seidov_, Oct 11 2008