A145464 Cubes ending in a square.

0, 1, 64, 125, 216, 729, 1000, 1331, 2744, 4096, 6859, 8000, 9261, 13824, 15625, 17576, 24389, 27000, 29791, 39304, 46656, 59319, 64000, 68921, 85184, 91125, 97336, 117649, 125000, 132651, 157464, 175616, 205379, 216000, 226981, 262144, 274625, 328509, 343000

Offset: 1

Author

Zak Seidov, Oct 11 2008

Keywords

• base
• nonn

Comments

Cube and ending square may be equal.

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A038678 squares ending in a (different) square.

Programs

Maple

q:= n-> (s-> ormap(x-> issqr(parse(x)),
        [s[i..-1]$i=1..length(s)]))(""||n):
select(q, [i^3$i=0..120])[];  # Alois P. Heinz, Mar 16 2020

Mathematica

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 *)