|
Search: id:A079169
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
2,5
|
|
|
EXAMPLE
|
a(10)=A079168(10)-A079167(10)=5-3=2
|
|
PROGRAM
|
(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: A097249 A112313 A087893 this_sequence A097106 A165619 A088886
Adjacent sequences: A079166 A079167 A079168 this_sequence A079170 A079171 A079172
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jon Perry (perry(AT)globalnet.co.uk), Dec 31 2002
|
|
|
Search completed in 0.002 seconds
|
