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).
Original entry on oeis.org
1, 2, 4, 14, 25, 37, 70, 105, 123, 153, 186, 182, 156, 139, 119, 79, 35, 9, 1
Offset: 8
-
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}]
A357997
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 A010371).
Original entry on oeis.org
1, 0, 5, 10, 16, 35, 66, 88, 119, 166, 187, 177, 161, 154, 129, 81, 35, 9, 1
Offset: 8
-
a055643[n_]:=FromDigits@ Apply[Join, PadLeft[#, 2] & /@ IntegerDigits@ IntegerDigits[n, 60]]; a010371[n_] := Plus @@ (IntegerDigits@ n /. {0 -> 6, 1 -> 2, 2 -> 5, 3 -> 5, 7 -> 4, 8 -> 7, 9 -> 6}); a[n_]:=a010371[a055643[n]]+6(4-Ceiling[Log10[a055643[n]+1]]); Table[Count[Join[{24},Array[a,1439]],n],{n,8,26}]
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).
Original entry on oeis.org
1, 2, 4, 18, 25, 41, 96, 103, 133, 189, 188, 154, 158, 155, 95, 53, 19, 5, 1
Offset: 8
-
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}]
A357999
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 A074458).
Original entry on oeis.org
1, 0, 5, 12, 14, 41, 74, 87, 128, 185, 185, 162, 167, 159, 119, 67, 26, 7, 1
Offset: 8
-
a055643[n_]:=FromDigits@ Apply[Join, PadLeft[#, 2] & /@ IntegerDigits@ IntegerDigits[n, 60]]; a074458[n_] := Plus @@ (IntegerDigits@ n /. {0 -> 6, 1 -> 2, 2 -> 5, 3 -> 5, 7 -> 4, 8 -> 7, 9 -> 5}); a[n_]:=a074458[a055643[n]]+6(4-Ceiling[Log10[a055643[n]+1]]);Table[Count[Join[{24},Array[a,1439]],n],{n,8,26}]
Showing 1-4 of 4 results.
Comments