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 A357973 #21 Oct 24 2022 22:05:39
%S A357973 24,20,23,23,22,23,24,22,25,23,20,16,19,19,18,19,20,18,21,19,23,19,22,
%T A357973 22,21,22,23,21,24,22,23,19,22,22,21,22,23,21,24,22,22,18,21,21,20,21,
%U A357973 22,20,23,21,23,19,22,22,21,22,23,21,24,22,20,16,19,19,18,19,20
%N A357973 a(n) is the number of segments used to represent the time of n minutes past midnight in the format hh:mm on a 7-segment calculator display; version where the digits '6', '7' and '9' use 6, 4 and 5 segments, respectively.
%C A357973 The sequence is periodic of period 1440 since the term a(1440) = a(0) = 24 corresponds to the time 00:00.
%H A357973 Stefano Spezia, <a href="/A357973/b357973.txt">Table of n, a(n) for n = 0..1439</a> (first period of the sequence).
%H A357973 <a href="/index/Ca#calculatordisplay">Index entries for sequences related to calculator display</a>
%H A357973 <a href="/index/Rec#order_1440">Index entries for linear recurrences with constant coefficients</a>, order 1440.
%F A357973 a(n) = A074458(A055643(n)) + 6*(4 - ceiling(log10(A055643(n) + 1))) for n > 0.
%F A357973 a(n) <= 26.
%t A357973 a055643[n_]:=FromDigits@ Apply[Join, PadLeft[#, 2] & /@ IntegerDigits@ IntegerDigits[n, 60]]; a074458[n_] := Plus @@ (IntegerDigits@ n /. {0 -> 6, 1 -> 2, 2 -> 5, 3 -> 5, 7 -> 4, 8 -> 7, 9 -> 5}); a[n_]:=a074458[a055643[n]]+6(4-Ceiling[Log10[a055643[n]+1]]); Join[{24},Array[a,66]]
%Y A357973 Cf. A008588, A055642, A055643, A074458.
%Y A357973 Variants: A357970, A357971, A357972, A357974.
%K A357973 nonn,base,easy
%O A357973 0,1
%A A357973 _Stefano Spezia_, Oct 22 2022