A240597 Numbers k such that sigma(k) == k (mod 9).
1, 15, 24, 42, 60, 64, 69, 78, 90, 100, 114, 123, 133, 147, 153, 177, 186, 198, 222, 231, 240, 258, 259, 270, 276, 288, 289, 306, 339, 360, 366, 393, 402, 403, 414, 429, 438, 447, 459, 474, 477, 492, 495, 501, 507, 511, 522, 582, 588, 594, 600
Offset: 1
Examples
sigma(15) = 24. 24 == 15 (mod 9), therefore 15 is in the sequence.
Links
- Ivan N. Ianakiev, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[1000],Mod[#,9]==Mod[DivisorSigma[1,#],9]&]
Comments