[go: up one dir, main page]

login
Revision History for A079169 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Difference between A079168(n) and A079167(n).
(history; published version)
#8 by N. J. A. Sloane at Wed May 31 16:15:23 EDT 2017
STATUS

proposed

approved

#7 by Antti Karttunen at Wed May 31 09:45:13 EDT 2017
STATUS

editing

proposed

#6 by Antti Karttunen at Wed May 31 09:30:48 EDT 2017
LINKS

Antti Karttunen, <a href="/A079169/b079169.txt">Table of n, a(n) for n = 1..10000</a>

#5 by Antti Karttunen at Wed May 31 09:27:34 EDT 2017
DATA

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

OFFSET

2,5

1,6

EXAMPLE

a(10) = A079168(10) - A079167(10) = 5-3 = 2.

EXTENSIONS

a(1) = 0 prepended by Antti Karttunen, May 31 2017

STATUS

approved

editing

#4 by Russ Cox at Sat Mar 31 13:21:55 EDT 2012
AUTHOR

_Jon Perry (perry(AT)globalnet.co.uk), _, Dec 31 2002

Discussion
Sat Mar 31
13:21
OEIS Server: https://oeis.org/edit/global/886
#3 by N. J. A. Sloane at Sun Jun 29 03:00:00 EDT 2008
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)", "))

KEYWORD

nonn,new

nonn

#2 by N. J. A. Sloane at Thu Feb 19 03:00:00 EST 2004
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)", "))

KEYWORD

nonn,new

nonn

#1 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
NAME

Difference between A079168(n) and A079167(n).

DATA

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

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
KEYWORD

nonn

AUTHOR

Jon Perry (perry(AT)globalnet.co.uk), Dec 31 2002

STATUS

approved