|
| |
|
|
A091289
|
|
Integer solutions x to (q=sigma[x]+sigma[x+1])/sigma[x+x+1], such that q=2 i.e. sigma[x]+sigma[x+1])=2*sigma[2x+1];sigma[]=A000203.
|
|
0
| |
|
|
215, 923, 944, 1715, 2379, 5355, 38429, 87584, 110483, 212795, 291039, 1016519, 1051644, 1198139, 2729979, 9380447, 9397674, 31476500, 31749948, 33146259, 33497064, 47004099, 50482278, 52026408, 54114528, 61571795, 79000679
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Do[s=(DivisorSigma[1, n]+DivisorSigma[1, n+1])/ DivisorSigma[1, 2*n+1]; If[Equal[s, 2], Print[n]], {n, 1, 10000000}]
|
|
|
CROSSREFS
| Cf. A000203, A091287-A091290.
Sequence in context: A193398 A193396 A137205 * A085754 A002239 A013546
Adjacent sequences: A091286 A091287 A091288 * A091290 A091291 A091292
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Feb 16 2004
|
|
|
EXTENSIONS
| a(16)-a(27) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Jan 31 2009
|
| |
|
|
