A328392 - OEIS

A328392

Maximal digit value in primorial base expansion of A327860(n): a(n) = A328114(A327860(n)).

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,4

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..30030

Index entries for sequences related to primorial base

FORMULA

a(n) = A328114(A327860(n)) = A328390(A276086(n)) = A328114(A003415(A276086(n))).

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); };