|
|
A328322
|
|
Maximal digit value used when A328316(n) is written in primorial base; maximal prime exponent in A328316(1+n).
|
|
7
|
|
|
0, 1, 1, 1, 1, 2, 3, 4, 7, 49, 430, 74814
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A328114(n) = { my(s=0, p=2); while(n, s = max(s, (n%p)); n = n\p; p = nextprime(1+p)); (s); };
\\ Or alternatively as, more slowly:
A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|