A328322 Maximal digit value used when A328316(n) is written in primorial base; maximal prime exponent in A328316(1+n).
0, 1, 1, 1, 1, 2, 3, 4, 7, 49, 430, 74814
Offset: 0
Keywords
Programs
-
PARI
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); }; A328316(n) = if(!n,0,A276086(A328316(n-1))); A328114(n) = { my(s=0, p=2); while(n, s = max(s,(n%p)); n = n\p; p = nextprime(1+p)); (s); }; A328322(n) = A328114(A328316(n)); \\ Or alternatively as, more slowly: A051903(n) = if((1==n),0,vecmax(factor(n)[, 2])); A328322(n) = A051903(A328316(1+n));