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.
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:
for n from 1 to 30 do printf("%d, ", A163596(n)) ; od: # R. J. Mathar, Aug 01 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Aug 01 2009
EXTENSIONS
Extended by R. J. Mathar, Aug 01 2009
STATUS
approved