proposed
approved
proposed
approved
editing
proposed
With[{b = MixedRadix[Reverse@ Prime@ Range@ 20]}, Array[Max@ IntegerDigits[#, b] &, 105, 0]] (* Michael De Vlieger, Oct 30 2019 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
a(n) = A061395(A328835(n)). - _From _Antti Karttunen_, Oct 29 2019: (Start)
For n >= 1, a(n) < A000040(A235224(n)) and a(n) <= A328391(n)+1.
a(A276086(n)) = A328389(n), a(A276087(n)) = A328394(n), a(A328403(n)) = A328398(n).
a(A327860(n)) = A328392(n), a(A003415(n)) = A328390(n), a(A328316(n)) = A328322(n).
For all n >= 1, a(n) = 1+A051903(A328572(n)).
(End)