login
a(n) = floor[ X/Y], where X = concatenation of k^k from 1 up to n^n and Y = concatenation of 1, ..., n.
0

%I #6 Dec 05 2013 19:55:07

%S 1,1,11,1156,1156141,11560850121,1156078457100065,

%T 11560777079611640798854,1156077623683098402586161358986,

%U 1156077622746675519639905953267558458549

%N a(n) = floor[ X/Y], where X = concatenation of k^k from 1 up to n^n and Y = concatenation of 1, ..., n.

%e a(5) = floor [14272563125/12345] = floor[1156141.20089104900769542324827866] = 1156141.

%t fxy[n_]:=Module[{num=FromDigits[Flatten[IntegerDigits/@(Table[x^x,{x,n}])]], den=FromDigits[Flatten[IntegerDigits/@Range[n]]]},Floor[num/den]]; Array[ fxy,10] (* _Harvey P. Dale_, Mar 21 2013 *)

%Y Cf. A067091, A067092, A067093, A067094, A067095, A067096, A067097, A067098, A067099, A067100, A067101, A067102, A067103, A067104.

%K easy,nonn,base

%O 1,3

%A _Amarnath Murthy_, Jan 07 2002

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

%E Edited by _Charles R Greathouse IV_, Apr 28 2010