login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #20 Oct 23 2022 09:19:03

%S 24,20,23,23,22,23,23,21,25,23,20,16,19,19,18,19,19,17,21,19,23,19,22,

%T 22,21,22,22,20,24,22,23,19,22,22,21,22,22,20,24,22,22,18,21,21,20,21,

%U 21,19,23,21,23,19,22,22,21,22,22,20,24,22,20,16,19,19,18,19,19

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

%C The sequence is periodic of period 1440 since the term a(1440) = a(0) = 24 corresponds to the time 00:00.

%H Stefano Spezia, <a href="/A357972/b357972.txt">Table of n, a(n) for n = 0..1439</a> (first period of the sequence).

%H <a href="/index/Ca#calculatordisplay">Index entries for sequences related to calculator display</a>

%F a(n) = A063720(A055643(n)) + 6*(4 - ceiling(log10(A055643(n) + 1))) for n > 0.

%F a(n) <= 26.

%t a055643[n_]:=FromDigits@ Apply[Join, PadLeft[#, 2] & /@ IntegerDigits@ IntegerDigits[n, 60]]; a063720[n_] := Plus @@ (IntegerDigits@ n /. {0 -> 6, 1 -> 2, 2 -> 5, 3 -> 5, 6 -> 5, 7 -> 3, 8 -> 7, 9 -> 5}); a[n_]:=a063720[a055643[n]]+6(4-Ceiling[Log10[a055643[n]+1]]); Join[{24},Array[a,66]]

%Y Cf. A008588, A055642, A055643, A063720.

%Y Variants: A357970, A357971, A357973, A357974.

%K nonn,base,easy

%O 0,1

%A _Stefano Spezia_, Oct 22 2022