OFFSET
1,10
COMMENTS
FORMULA
MATHEMATICA
With[{nn = 120}, IntegerLength[Range@ 120, MixedRadix[Flatten@ ConstantArray[{6, 10}, {2 Ceiling@ Log[60, nn]}]]]] (* Version 10.2, or *)
Table[StringLength@ If[StringTake[#, 1] == "0", StringDrop[#, 1], #] &@ StringJoin@ Map[If[# < 10, StringJoin["0", ToString@ #], ToString@ #] &, IntegerDigits[n, 60]], {n, 120}] (* Michael De Vlieger, Feb 20 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang, Feb 20 2017
STATUS
approved