|
|
A068077
|
|
Numbers n such that sigma(n)+sigma(n+1)=4n.
|
|
3
|
|
|
1, 38184, 458010, 776112, 65676408, 1488668112, 4414086384, 28645019964, 46696401675, 65466785748, 70619381496, 176151711072
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
For[n=1, True, n++, If[DivisorSigma[1, n]+DivisorSigma[1, n+1]==4n, Print[n]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|