Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Oct 16 2019 13:18:48
%S 0,1,1,2,1,3,1,1,1,1,1,4,2,2,4,6,1,3,2,2,4,5,6,7,3,7,10,7,6,9,1,1,2,2,
%T 3,5,2,4,2,1,3,4,3,5,2,6,9,4,3,10,3,6,8,2,8,5,7,7,5,10,2,2,3,4,2,6,4,
%U 2,6,9,3,4,4,5,6,9,6,7,5,7,9,5,11,10,4,3,5,11,16,7,4,3,5,2,5,6,5,7,4,6,8,10,5,9,12,11
%N Maximal digit value in primorial base expansion of A327860(n): a(n) = A328114(A327860(n)).
%H Antti Karttunen, <a href="/A328392/b328392.txt">Table of n, a(n) for n = 0..30030</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%F a(n) = A328114(A327860(n)) = A328390(A276086(n)) = A328114(A003415(A276086(n))).
%o (PARI)
%o A327860(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); (s*m); };
%o A328114(n) = { my(s=0, p=2); while(n, s = max(s,(n%p)); n = n\p; p = nextprime(1+p)); (s); };
%o A328392(n) = A328114(A327860(n));
%Y Cf. A002110, A003415, A276086, A327859, A327860, A328114, A328389, A328390, A328391, A328396.
%K nonn
%O 0,4
%A _Antti Karttunen_, Oct 15 2019