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,3

Comments

Cube and ending square may be equal.

Links

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

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

Crossrefs

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

Sequence in context: A357390 A195678 A029777 * A215558 A324487 A258001

Adjacent sequences: A145461 A145462 A145463 * A145465 A145466 A145467

Keyword

base,nonn

Author

Zak Seidov, Oct 11 2008

Status

approved