|
|
A145464
|
|
Cubes ending in a square.
|
|
2
|
|
|
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
|
|
|
MAPLE
|
q:= n-> (s-> ormap(x-> issqr(parse(x)),
[s[i..-1]$i=1..length(s)]))(""||n):
|
|
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.
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|