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

%I #6 Aug 06 2020 19:14:00

%S 1,1,12,12,122,1225,12252,122526,1225268,12252682,122526828,

%T 1225268284,12252682845,122526828457,1225268284577,12252682845779,

%U 122526828457797,1225268284577978,12252682845779785,122526828457797852

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

%H Harvey P. Dale, <a href="/A067123/b067123.txt">Table of n, a(n) for n = 1..467</a>

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

%t 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 *)

%Y Cf. A067112-A067122.

%K easy,nonn,base

%O 1,3

%A _Amarnath Murthy_, Jan 08 2002

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