

A078713


Sum of squares of the distances between successive divisors of n.


2



0, 1, 4, 5, 16, 11, 36, 21, 40, 35, 100, 43, 144, 75, 108, 85, 256, 101, 324, 131, 216, 203, 484, 171, 416, 291, 364, 259, 784, 273, 900, 341, 552, 515, 804, 385, 1296, 651, 780, 519, 1600, 551, 1764, 659, 960, 971, 2116, 683, 1800, 885, 1356, 931, 2704, 911, 1988
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS



EXAMPLE

The divisors of 10 are 1, 2, 5, 10 and the sum of the squares of the distances between successive divisors = (21)^2 + (52)^2 + (105)^2 = 35. Hence a(10) = 35.


MATHEMATICA

f[n_] := Module[{d, l, s, i}, d = Divisors[n]; l = Length[d]; s = 0; For[i = 1, i < l, i++, s = s + (d[[i + 1]]  d[[i]])^2]; s]; Table[f[n], {n, 1, 100}]
Table[Total[Differences[Divisors[n]]^2], {n, 60}] (* Harvey P. Dale, Apr 10 2018 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



