A357998 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).
1, 2, 4, 18, 25, 41, 96, 103, 133, 189, 188, 154, 158, 155, 95, 53, 19, 5, 1
Offset: 8
Crossrefs
Programs
-
Mathematica
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}]
Comments