proposed
approved
proposed
approved
editing
proposed
Antti Karttunen, <a href="/A079169/b079169.txt">Table of n, a(n) for n = 1..10000</a>
0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 2, 2, 0, 0, 4, 0, 2, 2, 2, 0, 2, 0, 2, 0, 2, 0, 8, 0, 0, 2, 2, 2, 4, 0, 2, 2, 2, 0, 8, 0, 2, 2, 2, 0, 2, 0, 4, 2, 2, 0, 6, 2, 2, 2, 2, 0, 8, 0, 2, 2, 0, 2, 8, 0, 2, 2, 8, 0, 4, 0, 2, 4, 2, 2, 8, 0, 2, 0, 2, 0, 8, 2, 2, 2, 2, 0, 10, 2, 2, 2, 2, 2, 2, 0, 4, 2, 4, 0, 8, 0, 2, 8, 2
2,5
1,6
a(1) = 0 prepended by Antti Karttunen, May 31 2017
approved
editing
_Jon Perry (perry(AT)globalnet.co.uk), _, Dec 31 2002
(PARI) weightedroundness(n)=local(f, fl, s); f=factor(n); fl=length(f[, 1]); s=0; for (i=1, fl, s=s+i*f[, 2][i]); s alias(wr, weightedroundness) weightedroundness2(n)=local(f, fl, s); f=factor(n); fl=length(f[, 1]); s=0; for (i=1, fl, s=s+i^2*f[, 2][i]); s alias(wr2, weightedroundness2) for (j=2, 500, print1(wr2(j)-wr(j)", "))
nonn,new
nonn
(PARI) weightedroundness(n)=local(f, fl, s); f=factor(n); fl=length(f[, 1]); s=0; for (i=1, fl, s=s+i*f[, 2][i]); s alias(wr, weightedroundness) weightedroundness2(n)=local(f, fl, s); f=factor(n); fl=length(f[, 1]); s=0; for (i=1, fl, s=s+i^2*f[, 2][i]); s alias(wr2, weightedroundness2) for (j=2, 500, print1(wr2(j)-wr(j)", "))
nonn,new
nonn
0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 2, 2, 0, 0, 4, 0, 2, 2, 2, 0, 2, 0, 2, 0, 2, 0, 8, 0, 0, 2, 2, 2, 4, 0, 2, 2, 2, 0, 8, 0, 2, 2, 2, 0, 2, 0, 4, 2, 2, 0, 6, 2, 2, 2, 2, 0, 8, 0, 2, 2, 0, 2, 8, 0, 2, 2, 8, 0, 4, 0, 2, 4, 2, 2, 8, 0, 2, 0, 2, 0, 8, 2, 2, 2, 2, 0, 10, 2, 2, 2, 2, 2, 2, 0, 4, 2, 4, 0, 8, 0, 2, 8, 2
2,5
(PARI) weightedroundness(n)=local(f, fl, s); f=factor(n); fl=length(f[, 1]); s=0; for (i=1, fl, s=s+i*f[, 2][i]); s alias(wr, weightedroundness) weightedroundness2(n)=local(f, fl, s); f=factor(n); fl=length(f[, 1]); s=0; for (i=1, fl, s=s+i^2*f[, 2][i]); s alias(wr2, weightedroundness2) for (j=2, 500, print1(wr2(j)-wr(j)", "))
nonn
Jon Perry (perry(AT)globalnet.co.uk), Dec 31 2002
approved