A078192 a(n) = floor(concatenation of n down to 1 divided by n).
1, 10, 107, 1080, 10864, 109053, 1093474, 10956790, 109739369, 1098765432, 100998877665, 10092582304526, 1009316229819563, 100937222213403880, 10094208074065843621, 1009463320069436728395, 100950083124771234567901, 10095341745173395054869684
Offset: 1
Examples
a(6) = floor(654321/6) = 109053.
Programs
-
Maple
a:= n-> floor(parse(cat(1+n-i$i=1..n))/n): seq(a(n), n=1..19); # Alois P. Heinz, Jun 20 2025
-
Mathematica
Table[Floor[FromDigits[Flatten[IntegerDigits/@Reverse[Range[n]]]]/n],{n,20}] (* Harvey P. Dale, Jul 22 2012 *)
Formula
a(n) = floor(A000422(n) / n). - Sean A. Irvine, Jun 20 2025
Extensions
More terms from Jon E. Schoenfield, May 08 2010