|
|
A077087
|
|
Numbers k such that sigma(k+1) = 3 * sigma(k).
|
|
5
|
|
|
1, 1919, 2759, 11219, 27089, 50039, 58463, 100127, 113831, 115289, 120203, 131879, 148511, 233729, 244319, 308039, 461099, 554063, 596447, 1406303, 1486619, 2285519, 2880989, 5138783, 5369111, 5521619, 5736743, 6621383, 7496279, 7683191, 8571527, 8848619
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
k = 1: sigma(2)/sigma(1) = 3/1 = 3;
k = 9563231: sigma(k+1)/sigma(k) = 31026240/10342080 = 3.
|
|
MATHEMATICA
|
Do[s=Mod[a=DivisorSigma[1, n+1], b=DivisorSigma[1, n]]; If[Equal[s, 0]&&Equal[a/b, 3], Print[n]], {n, 1, 10000000}]
Position[Partition[DivisorSigma[1, Range[9*10^6]], 2, 1], _?(3#[[1]] == #[[2]]&), 1, Heads->False]//Flatten (* Harvey P. Dale, Oct 03 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|