|
%I #21 Oct 23 2022 09:19:17
%S 24,20,23,23,22,23,24,21,25,24,20,16,19,19,18,19,20,17,21,20,23,19,22,
%T 22,21,22,23,20,24,23,23,19,22,22,21,22,23,20,24,23,22,18,21,21,20,21,
%U 22,19,23,22,23,19,22,22,21,22,23,20,24,23,20,16,19,19,18,19,20
%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 6, 3 and 6 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="/A357970/b357970.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) = A006942(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]]; a006942[n_] := Plus @@ (IntegerDigits@ n /. {0 -> 6, 1 -> 2, 2 -> 5, 3 -> 5, 7 -> 3, 8 -> 7, 9 -> 6}); a[n_]:=a006942[a055643[n]]+6(4-Ceiling[Log10[a055643[n]+1]]); Join[{24}, Array[a, 66]]
%Y Cf. A006942, A008588, A055642, A055643.
%Y Variants: A357971, A357972, A357973, A357974.
%K nonn,base,easy
%O 0,1
%A _Stefano Spezia_, Oct 22 2022
|
