A282622 Number of digits of the representation of n in the alternating sexagesimal-decimal number system.

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3

Offset

1,10

Comments

For a(1)..a(59) this sequence coincides with A055642.

For the alternating sexagesimal-decimal number system see a comment in A055643.

Links

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

Formula

a(n) = 1 for n = 1..9, a(n) = 2 for n = 10..59, a(n) = 3 for n = 60..599, a(n) = 4 for n = 600..3600, ..., i.e., a(n) = k, k >= 1, for n = A281863(k-1)..A281863(k)-1.

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

Cf. A055642, A281863, A055643.

Sequence in context: A036452 A356852 A285481 * A102572 A098391 A071702

Adjacent sequences: A282619 A282620 A282621 * A282623 A282624 A282625

Keyword

nonn,easy

Author

Wolfdieter Lang, Feb 20 2017

Status

approved