|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,5
|
|
|
EXAMPLE
| a(10)=A079168(10)-A079167(10)=5-3=2
|
|
|
PROG
| (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)", "))
|
|
|
CROSSREFS
| Cf. A079167, A079168, A001222.
Sequence in context: A112313 A172246 A087893 * A097106 A175801 A165619
Adjacent sequences: A079166 A079167 A079168 * A079170 A079171 A079172
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Dec 31 2002
|
| |
|
|
