|
|
|
|
1, 6, 8, 31, 14, 48, 12, 156, 57, 84, 20, 248, 18, 72, 112, 781, 30, 342, 24, 434, 96, 120, 32, 1248, 183, 108, 400, 372, 38, 672, 44, 3906, 160, 180, 168, 1767, 42, 144, 144, 2184, 54, 576, 48, 620, 798, 192, 60, 6248, 133, 1098, 240, 558, 62, 2400, 280, 1872, 192, 228, 68, 3472, 74, 264, 684, 19531, 252, 960, 72
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Multiplicative with a(p^e) = (q^(e+1)-1)/(q-1) where q = A354200(A000720(p)).
|
|
PROG
|
(PARI)
A354200(n) = if(1==n, 5, my(p=prime(n), m=p%4); forprime(q=1+p, , if(m==(q%4), return(q))));
A354205(n) = { my(f=factor(n)); for(k=1, #f~, f[k, 1] = A354200(primepi(f[k, 1]))); sigma(factorback(f)); };
\\ Alternatively:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,mult
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|