OFFSET
0,4
COMMENTS
After each primorial number (A002110), the apparent periodicity grows more complex.
LINKS
FORMULA
PROG
(PARI) A348999(n) = { my(m1=1, m2=1, p=2); while(n, m1 *= (p^(n%p)); m2 *= ((1+p)^(n%p)); n = n\p; p = nextprime(1+p)); gcd(m1, m2); };
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Nov 07 2021
STATUS
approved