|
|
|
|
4, 3, 2, 12, 10, 8, 4, 2, 7, 56, 78, 8, 2, 2, 32, 16, 4, 2, 532, 152, 136, 8, 68, 31, 992, 128, 8, 64, 32, 16, 4, 8, 128, 32, 8, 2, 43648, 2528, 32, 4, 2, 32, 2272, 32, 32, 127, 16256, 32, 32, 4, 536, 8, 32, 8, 52, 16, 32, 41044, 64, 512, 128, 64, 16, 4, 2, 8
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(n) is a proper divisor of A181595(n).
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
Since A181595(1)=12, a(1)=sigma(12)-2*12=28-24=4.
|
|
MATHEMATICA
|
Reap[For[n = 12, n <= 2 10^7, n++, abn = DivisorSigma[1, n] - 2n; If[1 < abn < n && Divisible[n, abn], Print[{n, abn}]; Sow[abn]]]][[2, 1]] (* Jean-François Alcover, Oct 28 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Entries checked, definition shortened by R. J. Mathar, Nov 17 2010
|
|
STATUS
|
approved
|
|
|
|