|
|
A163596
|
|
Smallest cube that contains the decimal digits of n in its exact middle.
|
|
1
|
|
|
0, 1, 125, 24389, 343, 17576, 10648, 29791, 8, 21952, 54010152, 941192, 12812904, 551368, 531441, 89915392, 88716536, 571787, 421875, 2197, 512000, 262144, 1668222856, 20123648, 13824000, 15625000, 9261, 27, 34328125, 61629875, 343000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
"Exact" middle means that the counts of digits to the left and to the right of the digits of n in the cube are the same.
|
|
LINKS
|
|
|
EXAMPLE
|
The elements a(15) to a(18) are 899//15//392 = 448^3, 887//16//536 = 446^3, 57//17//87 = 83^3 and 42//18//75 = 75^3, where double slashes show the position of the digits of n.
|
|
MAPLE
|
A163596 := proc(n) ndi := convert(n, base, 10) ; lenndi := nops(ndi) ; for c from 0 do cdi := convert(c^3, base, 10) ; lencdi := (nops(cdi)-lenndi)/2 ; if lencdi >=0 and type(lencdi, 'integer') then if op(1+lencdi..lencdi+lenndi, cdi) = op(ndi) then RETURN(c^3) ; fi; fi; od: end:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|