login
A351952
a(n) = A351950(n) / A351577(n).
7
0, 1, 1, 5, 2, 7, 1, 7, 8, 31, 13, 41, 2, 9, 11, 37, 16, 47, 3, 11, 14, 43, 19, 53, 1, 9, 10, 41, 17, 55, 12, 59, 71, 247, 106, 317, 19, 73, 92, 289, 127, 359, 26, 87, 113, 331, 148, 401, 2, 11, 13, 47, 20, 61, 17, 69, 86, 277, 121, 347, 24, 83, 107, 319, 142, 389, 31, 97, 128, 361, 163, 431, 3, 13, 16, 53, 23, 67
OFFSET
0,4
COMMENTS
Compare how different the scatter plot is to that of A342002, albeit with a very similar definition.
Note: this is at least partly because the other uses linear and the other uses logarithmic scatter plot. - Antti Karttunen, Oct 23 2024
FORMULA
a(n) = A351950(n) / A351577(n).
a(n) = A342001(A276076(n)) = A083345(A276076(n)).
a(n) = A342002(A351576(n)).
a(n) = A351953(A225901(n)).
PROG
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A276076(n) = { my(i=0, m=1, f=1, nextf); while((n>0), i=i+1; nextf = (i+1)*f; if((n%nextf), m*=(prime(i)^((n%nextf)/f)); n-=(n%nextf)); f=nextf); m; };
A351952(n) = { my(u=A276076(n)); (A003415(u) / A003557(u)); };
CROSSREFS
KEYWORD
nonn,base,look,changed
AUTHOR
Antti Karttunen, Apr 01 2022
STATUS
approved