|
%I #5 Oct 23 2022 23:30:31
%S 1,2,4,18,25,41,96,103,133,189,188,154,158,155,95,53,19,5,1
%N a(n) is the number of times in the format hh:mm that can be represented in a 7-segment display by using only n segments (version A063720).
%C Since 8 <= A357972(n) <= 26 the sequence is finite and begins with offset 8.
%H <a href="/index/Ca#calculatordisplay">Index entries for sequences related to calculator display</a>
%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]]);Table[Count[Join[{24},Array[a,1439]],n],{n,8,26}]
%Y Histogram of A357972.
%Y Cf. A008588, A055642, A055643, A063720.
%Y Variants: A357996, A357997, A357999, A358000.
%K nonn,base,easy,fini,full
%O 8,2
%A _Stefano Spezia_, Oct 23 2022
|
