OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n=1..200
MATHEMATICA
divmult[d_, n_] := Module[{output, i}, If[d == 1, output = 1, If[d == n, output = 1, i = 0; While[Mod[n, d^(i + 1)] == 0, i = i + 1]; output = i]]; output]; dmt[n_] := Module[{divs, l}, divs = Divisors[n]; l = Length[divs]; Sum[divmult[divs[[i]], n]*divs[[i]], {i, 1, l}]]; l = {}; Do[If[dmt[i] == dmt[i + 1], l = Append[l, i]], {i, 1, 10^6}]; l
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Dec 05 2009
EXTENSIONS
Extended by Ray Chandler, Dec 08 2009
STATUS
approved