|
|
A067105
|
|
a(n) = floor[ X/Y], where X = concatenation of k^k from 1 up to n^n and Y = concatenation of 1, ..., n.
|
|
0
|
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = floor [14272563125/12345] = floor[1156141.20089104900769542324827866] = 1156141.
|
|
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 *)
|
|
CROSSREFS
|
Cf. A067091, A067092, A067093, A067094, A067095, A067096, A067097, A067098, A067099, A067100, A067101, A067102, A067103, A067104.
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003
|
|
STATUS
|
approved
|
|
|
|