A067123 Floor[X/Y] where X = concatenation of first n cubes in increasing order and Y = concatenation of first n squares.

1, 1, 12, 12, 122, 1225, 12252, 122526, 1225268, 12252682, 122526828, 1225268284, 12252682845, 122526828457, 1225268284577, 12252682845779, 122526828457797, 1225268284577978, 12252682845779785, 122526828457797852

Offset: 1

Author

Amarnath Murthy, Jan 08 2002

Keywords

• easy
• nonn
• base

Examples

			a(5) = floor[182764125/1491625] = floor[122.526858292131065113550657839604] = 122.
		

Links

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

Crossrefs

Cf. A067112-A067122.

Programs

Mathematica

fxy[n_]:=Module[{c=FromDigits[Flatten[IntegerDigits/@(Range[n]^3)]],s = FromDigits[ Flatten[ IntegerDigits/@(Range[n]^2)]]}, Floor[c/s]]; Array[fxy,20] (* Harvey P. Dale, Aug 06 2020 *)

Extensions

More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003