login
A328392
Maximal digit value in primorial base expansion of A327860(n): a(n) = A328114(A327860(n)).
8
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, 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, 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
OFFSET
0,4
FORMULA
PROG
(PARI)
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); };
A328114(n) = { my(s=0, p=2); while(n, s = max(s, (n%p)); n = n\p; p = nextprime(1+p)); (s); };
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 15 2019
STATUS
approved