|
2, 14, 32, 122, 58, 404, 134, 1094, 782, 742, 184, 3752, 308, 346, 1768, 9842, 382, 10154, 554, 6898, 4124, 2380, 872, 33884, 2802, 3992, 19532, 1238, 994, 22972, 1408, 88574, 5674, 4954, 7582, 94502, 1724, 7190, 9518, 62302, 1894, 53600, 2258, 22144, 44518, 11324, 2864, 305072, 16106, 36414, 11812, 37148, 3542, 253904
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A003961(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
A337338(n) = { my(s=(A003961(n)^2), t=1+sigma(s)); (t/gcd(t, (s+1)/2)); };
\\ Or as:
A337338(n) = { my(s=A003961(n^2)); numerator((1+sigma(s))/((s+1)/2)); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|