This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A282622 #12 Jan 16 2018 05:09:58
%S A282622 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,
%T A282622 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,
%U A282622 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
%N A282622 Number of digits of the representation of n in the alternating sexagesimal-decimal number system.
%C A282622 For a(1)..a(59) this sequence coincides with A055642.
%C A282622 For the alternating sexagesimal-decimal number system see a comment in A055643.
%F A282622 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.
%t A282622 With[{nn = 120}, IntegerLength[Range@ 120, MixedRadix[Flatten@ ConstantArray[{6, 10}, {2 Ceiling@ Log[60, nn]}]]]] (* Version 10.2, or *)
%t A282622 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 *)
%Y A282622 Cf. A055642, A281863, A055643.
%K A282622 nonn,easy
%O A282622 1,10
%A A282622 _Wolfdieter Lang_, Feb 20 2017