cp's OEIS Frontend

A357971 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 6 segments, respectively.

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