A232057 Numbers k such that S(24*(3*k-1)) <> 16*(3*k-1) mod 24*(3*k-1) where S(k) := Sum_{0<=a

5, 19, 37, 47, 61, 75

Offset: 1

Author

José María Grau Ribas, Nov 17 2013

Keywords

• nonn
• more
• hard

Crossrefs

Cf. A230308, A230309, A230310, A232056.

Programs

Mathematica

fu[n_] := fu[n] = Mod[Sum[PowerMod[i + j I, n, n], {i, 0, n - 1}, {j, 0, n - 1}], n]; Table[If[! fu[24(3n - 1)]/(3n - 1) == 16, Print[n]; n], {n, 1, 40}]