login
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.
7
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
MATHEMATICA
aa[n_] := Mod[Sum[PowerMod[ a + b I, n, n], {a, n}, {b, n}], n]; Select[Range[100], aa[72*#] > 0 &]
CROSSREFS
Sequence in context: A118904 A164722 A162020 * A044854 A044899 A008596
KEYWORD
nonn
AUTHOR
EXTENSIONS
Terms a(7) onward from Max Alekseyev, Oct 16 2013
STATUS
approved