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,1

Links

Table of n, a(n) for n=1..66.

Mathematica

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

Crossrefs

Cf. A230308, A230309.

Sequence in context: A118904 A164722 A162020 * A044854 A044899 A008596

Adjacent sequences: A230307 A230308 A230309 * A230311 A230312 A230313

Keyword

nonn

Author

José María Grau Ribas, Oct 16 2013

Extensions

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

Status

approved