A272715 Numbers equal to the sum of their proper divisors d such that d mod 3 = 2.
280, 34960, 4960000, 15887872, 20527600, 105056320, 44781248512
Offset: 1
Examples
The proper divisors of 280 which are congruent to 2 mod 3 are 2, 5, 8, 14, 20, 35, 56, and 140. Since their sum is 280, 280 is a term.
Programs
-
Mathematica
Select[Range[40000], # == Plus @@ Select[ Most@ Divisors[#], Mod[#, 3] == 2 &] &]
-
PARI
is(n)=sumdiv(n, d, if(d%3==2, d, 0))==if(n%3==2, 2*n, n) \\ Charles R Greathouse IV, May 09 2016
Comments