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,3

Links

Table of n, a(n) for n=1..10.

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.

Sequence in context: A177068 A358149 A222827 * A237695 A180581 A233012

Adjacent sequences: A067102 A067103 A067104 * A067106 A067107 A067108

Keyword

easy,nonn,base

Author

Amarnath Murthy, Jan 07 2002

Extensions

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

Edited by Charles R Greathouse IV, Apr 28 2010

Status

approved