A227306 Numbers k that divide sigma(k) + sigma(k-1).
2, 6, 34, 50, 216, 236, 262, 386, 898, 924, 945, 1456, 2380, 5356, 6468, 6624, 8362, 14100, 23496, 26938, 46594, 80876, 196344, 212796, 1661136, 4070200, 4160920, 4626700, 5244548, 5462384, 17062316, 60464628, 217408416, 248621604, 262792908, 265371336, 323987588
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..65 (terms < 10^13)
Programs
-
Mathematica
With[{nn=324*10^6},Select[Thread[{Total/@Partition[DivisorSigma[ 1,Range[ nn]],2,1],Range[ 2,nn]}],Divisible[#[[1]],#[[2]]]&][[All,2]]] (* Harvey P. Dale, May 29 2020 *)
Comments