|
Search: id:A067313
|
|
|
| A067313 |
|
Numbers n such that DivisorSigma[n,n]/n is an integer. |
|
+0
1
|
|
| 1, 10, 130, 135, 147, 150, 228, 250, 350, 364, 410, 444, 492, 876, 891, 945, 1014, 1308, 1372, 1550, 1690, 1950, 2050, 2210, 2373, 2565, 2850, 3045, 3050, 3250, 3375, 3876, 4108, 4185, 4905, 4995, 5050, 5070, 5145, 5330, 5439, 5481, 6150, 6250, 6321
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
If n=10, then Sigma[10,10]=1+1024+9765625+10000000000=1009766650 is divisible by n=10.
|
|
MATHEMATICA
|
Do[s=DivisorSigma[n, n]; If[IntegerQ[s/n], Print[n]], {n, 1, 10000}]
|
|
CROSSREFS
|
Sequence in context: A079241 A007819 A054050 this_sequence A104130 A051607 A113386
Adjacent sequences: A067310 A067311 A067312 this_sequence A067314 A067315 A067316
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 14 2002
|
|
|
Search completed in 0.002 seconds
|
