A067105 a(n) = floor[ X/Y], where X = concatenation of k^k from 1 up to n^n and Y = concatenation of 1, ..., n.
1, 1, 11, 1156, 1156141, 11560850121, 1156078457100065, 11560777079611640798854, 1156077623683098402586161358986, 1156077622746675519639905953267558458549
Offset: 1
Examples
a(5) = floor [14272563125/12345] = floor[1156141.20089104900769542324827866] = 1156141.
Crossrefs
Programs
-
Mathematica
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 *)
Extensions
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003
Edited by Charles R Greathouse IV, Apr 28 2010