A374365 Numbers m such that abs(Sum_{k=1..m} [k|m]*A008683(k)*(-1)^(2*k/5)) = 0.
11, 22, 31, 33, 41, 44, 55, 61, 62, 66, 71, 77, 82, 88, 93, 99, 101, 110, 121, 122, 123, 124, 131, 132, 142, 143, 151, 154, 155, 164, 165, 176, 181, 183, 186, 187, 191, 198, 202, 205, 209, 211, 213, 217, 220, 231, 241, 242, 244, 246, 248, 251, 253, 262, 264, 271
Offset: 1
Keywords
Programs
-
Mathematica
nn = 274; Flatten[Position[ParallelTable[Abs[Sum[If[Mod[n, k] == 0, 1, 0]*((-1)^( 2*k/5))*MoebiusMu[k], {k, 1, n}]], {n, 1, nn}], 0]]
Comments