A145464 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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