|
%I #23 Dec 25 2023 17:50:36
%S 14,28,42,55,56,70,84,95,110,112,126,140,154,165,168,182,190,210,220,
%T 224,238,252,266,275,280,285,308,322,330,336,350,364,378,380,385,406,
%U 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
%N 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.
%t aa[n_] := Mod[Sum[PowerMod[ a + b I, n, n], {a, n}, {b, n}], n]; Select[Range[100], aa[72*#] > 0 &]
%Y Cf. A230308, A230309.
%K nonn
%O 1,1
%A _José María Grau Ribas_, Oct 16 2013
%E Terms a(7) onward from _Max Alekseyev_, Oct 16 2013
|
