OFFSET
8,3
COMMENTS
Since 8 <= A357971(n) <= 26 the sequence is finite and begins with offset 8.
MATHEMATICA
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}]
CROSSREFS
KEYWORD
nonn,base,easy,fini,full
AUTHOR
Stefano Spezia, Oct 23 2022
STATUS
approved