|
|
|
|
1, 2, 5, 10, 22, 38, 110, 178, 378, 698, 1766, 2618, 7442, 11006, 26482, 58226, 123698, 178310, 502490, 719802, 1814954, 3737154, 8601674, 11944562, 33535586, 54001022, 120654206, 217935362, 518197346, 718356542, 2441734706, 3392584002, 7055236194, 13981570658
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
PROG
|
(Sage) P=[0]+[i*prod([(1+1/x) for x in prime_divisors(i)]) for i in [1..100]]
Tr=[[prod(P[1:n+1])/(prod(P[1:k+1])*prod(P[1:(n-k)+1])) for k in [0..n]] for n in [0..len(P)-1]]
print([sum(x) for x in Tr])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|