OFFSET
0,2
COMMENTS
Denominator of n / A163511(n).
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..16383
PROG
(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
A054429(n) = ((3<<#binary(n\2))-n-1);
(Python)
from math import gcd
from sympy import nextprime
def A364492(n):
c, p, k = 1, 1, n
while k:
c *= (p:=nextprime(p))**(s:=(~k&k-1).bit_length())
k >>= s+1
return c*p//gcd(c*p, n) # Chai Wah Wu, Jul 26 2023
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Antti Karttunen, Jul 26 2023
STATUS
approved