A357996 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 A006942).
1, 2, 4, 14, 25, 37, 70, 105, 123, 153, 186, 182, 156, 139, 119, 79, 35, 9, 1
Offset: 8
Crossrefs
Programs
-
Mathematica
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]]); Table[Count[Join[{24},Array[a,1439]],n],{n,8,26}]
Comments