cp's OEIS Frontend

A328322 Maximal digit value used when A328316(n) is written in primorial base; maximal prime exponent in A328316(1+n).

%I A328322 #12 Oct 14 2019 13:55:57
%S A328322 0,1,1,1,1,2,3,4,7,49,430,74814
%N A328322 Maximal digit value used when A328316(n) is written in primorial base; maximal prime exponent in A328316(1+n).
%H A328322 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%F A328322 a(n) = A328114(A328316(n)).
%F A328322 a(n) = A051903(A328316(1+n)).
%o A328322 (PARI)
%o A328322 A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
%o A328322 A328316(n) = if(!n,0,A276086(A328316(n-1)));
%o A328322 A328114(n) = { my(s=0, p=2); while(n, s = max(s,(n%p)); n = n\p; p = nextprime(1+p)); (s); };
%o A328322 A328322(n) = A328114(A328316(n));
%o A328322 \\ Or alternatively as, more slowly:
%o A328322 A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
%o A328322 A328322(n) = A051903(A328316(1+n));
%Y A328322 Cf. A051903, A276086, A328114, A328316, A328317, A328318, A328319, A328323.
%K A328322 nonn
%O A328322 0,6
%A A328322 _Antti Karttunen_, Oct 14 2019