A230310 Numbers k such that Sum_{a=0..72*k-1, b=0..72*k-1} (a+b*i)^(72*k) !== 0 (mod 72*k), where i is the imaginary unit.

14, 28, 42, 55, 56, 70, 84, 95, 110, 112, 126, 140, 154, 165, 168, 182, 190, 210, 220, 224, 238, 252, 266, 275, 280, 285, 308, 322, 330, 336, 350, 364, 378, 380, 385, 406, 420, 434, 440, 448, 462, 475, 476, 495, 504, 506, 518, 532, 546, 550, 560, 570, 574, 602, 616, 630, 644, 658, 660, 665, 672, 700, 714, 715, 728, 742

Offset: 1

Author

José María Grau Ribas, Oct 16 2013

Keywords

• nonn

Crossrefs

Cf. A230308, A230309.

Programs

Mathematica

aa[n_] := Mod[Sum[PowerMod[ a + b I, n, n], {a, n}, {b, n}], n]; Select[Range[100], aa[72*#] > 0 &]

Extensions

Terms a(7) onward from Max Alekseyev, Oct 16 2013