|
|
A364491
|
|
a(n) = n / gcd(n, A163511(n)).
|
|
8
|
|
|
0, 1, 1, 1, 1, 5, 1, 7, 1, 1, 5, 11, 1, 13, 7, 15, 1, 17, 1, 19, 5, 7, 11, 23, 1, 5, 13, 27, 7, 29, 15, 31, 1, 11, 17, 7, 1, 37, 19, 39, 5, 41, 7, 43, 11, 15, 23, 47, 1, 49, 5, 51, 13, 53, 27, 5, 7, 19, 29, 59, 15, 61, 31, 63, 1, 65, 11, 67, 17, 23, 7, 71, 1, 73, 37, 15, 19, 11, 39, 79, 5, 3, 41, 83, 7, 17, 43, 87
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); t };
(Python)
from math import gcd
from sympy import nextprime
c, p, k = 1, 1, n
while k:
c *= (p:=nextprime(p))**(s:=(~k&k-1).bit_length())
k >>= s+1
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|