cp's OEIS Frontend

A357974 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, 3 and 5 segments, respectively.

%I A357974 #18 Oct 23 2022 09:19:32
%S A357974 24,20,23,23,22,23,24,21,25,23,20,16,19,19,18,19,20,17,21,19,23,19,22,
%T A357974 22,21,22,23,20,24,22,23,19,22,22,21,22,23,20,24,22,22,18,21,21,20,21,
%U A357974 22,19,23,21,23,19,22,22,21,22,23,20,24,22,20,16,19,19,18,19,20
%N A357974 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, 3 and 5 segments, respectively.
%C A357974 The sequence is periodic of period 1440 since the term a(1440) = a(0) = 24 corresponds to the time 00:00.
%H A357974 Stefano Spezia, <a href="/A357974/b357974.txt">Table of n, a(n) for n = 0..1439</a> (first period of the sequence).
%H A357974 <a href="/index/Ca#calculatordisplay">Index entries for sequences related to calculator display</a>
%F A357974 a(n) = A277116(A055643(n)) + 6*(4 - ceiling(log10(A055643(n) + 1))) for n > 0.
%F A357974 a(n) <= 26.
%t A357974 a055643[n_]:=FromDigits@ Apply[Join, PadLeft[#, 2] & /@ IntegerDigits@ IntegerDigits[n, 60]]; a277116[n_] := Plus @@ (IntegerDigits@ n /. {0 -> 6, 1 -> 2, 2 -> 5, 3 -> 5, 7 -> 3, 8 -> 7, 9 -> 5}); a[n_]:=a277116[a055643[n]]+6(4-Ceiling[Log10[a055643[n]+1]]); Join[{24},Array[a,66]]
%Y A357974 Cf. A008588, A055642, A055643, A277116.
%Y A357974 Variants: A357970, A357971, A357972, A357973.
%K A357974 nonn,base,easy
%O A357974 0,1
%A A357974 _Stefano Spezia_, Oct 22 2022