|
| |
|
|
A058359
|
|
Absolute value of difference between the even and odd first differences of the divisors of n.
|
|
0
| |
|
|
0, 1, 2, 1, 4, 5, 6, 5, 8, 9, 10, 5, 12, 13, 14, 13, 16, 17, 18, 5, 20, 21, 22, 17, 24, 25, 26, 5, 28, 17, 30, 29, 32, 33, 34, 17, 36, 37, 38, 29, 40, 41, 42, 5, 44, 45, 46, 41, 48, 49, 50, 5, 52, 53, 54, 45, 56, 57, 58, 33, 60, 61, 62, 61, 64, 65, 66, 5, 68, 57, 70, 57, 72, 73, 74
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
EXAMPLE
| The divisors of twelve are {1, 2, 3, 4, 6 and 12}, the first difference is {1, 1, 1, 2 and 6}. The even differences add up to 8 while the odd differences add up to 3. The absolute difference between the even and odd first differences of 12 therefore is 5.
|
|
|
MATHEMATICA
| f[ n_Integer ] := (d = Divisors[ n ]; l = Length[ d ]; s = 0; i = 1; While[ i < l, e = d[ [ i + 1 ] ] - d[ [ i ] ]; If[ EvenQ[ e ], s = s + e, s = s - e ]; i++ ]; Abs[ s ]); Table[ f[ n ], {n, 1, 75} ]
|
|
|
CROSSREFS
| Sequence in context: A075423 A144774 A074720 * A110332 A052947 A159287
Adjacent sequences: A058356 A058357 A058358 * A058360 A058361 A058362
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 16 2000
|
| |
|
|
