A067091 -id:A067091 - cp's OEIS frontend

A067104 a(n) = floor[ X/Y], where X = concatenation of first n factorials and Y = concatenation of first n natural numbers.

1, 1, 1, 10, 1022, 102256, 102255452, 1022553862210, 102255378766606673, 10225537868377981588347, 10225537868286872045185666318, 102255378682858781228966381713174081, 10225537868285867355405173700779791589867289

Offset: 1

Amarnath Murthy, Jan 07 2002

			a(5) = floor [12624120/12345] = floor[1022.60996354799513973268529769137] = 1022.

Harvey P. Dale, Table of n, a(n) for n = 1..44

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

Table[Floor[FromDigits[Flatten[IntegerDigits/@(Range[n]!)]]/FromDigits[ Flatten[IntegerDigits/@Range[n]]]],{n,15}] (* Harvey P. Dale, Jun 09 2020 *)

Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003

Edited by Charles R Greathouse IV, Apr 27 2010

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

Original entry on oeis.org

1, 1, 11, 1156, 1156141, 11560850121, 1156078457100065, 11560777079611640798854, 1156077623683098402586161358986, 1156077622746675519639905953267558458549

Offset: 1

Amarnath Murthy, Jan 07 2002

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

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

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

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

Edited by Charles R Greathouse IV, Apr 28 2010

cp's OEIS Frontend

A067104 a(n) = floor[ X/Y], where X = concatenation of first n factorials and Y = concatenation of first n natural numbers.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions