|
0, 0, 3, 6, 36, 18, 5, 10, 0, 30, 15, 30, 40, 50, 45, 0, 0, 30, 45, 10, 0, 30, 45, 30, 20, 50, 15, 30, 0, 30, 37, 14, 0, 42, 57, 12, 0, 10, 45, 0, 0, 30, 35, 50, 0, 30, 15, 30, 20, 10, 15, 0, 0, 30, 15, 40, 0, 30, 45, 30, 8, 38, 57, 18, 24, 42, 5, 10, 0, 30, 15, 30, 0, 50, 15, 30, 0, 30, 55, 10, 0, 0, 15
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
PROG
|
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|