|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
aa[n_] := Mod[Sum[PowerMod[ a + b I, n, n], {a, n}, {b, n}], n]; Select[Range[100], aa[72*#] > 0 &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|