OFFSET
1,1
COMMENTS
Define S(k) = Sum_{0<=a<k, 0<=b<k} (a+b*i)^k, where i is the imaginary unit, which yields S(k) mod k = 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8,.. for k>=1. Then this sequence contains all places k such that S(k) == 0 (mod k).
The asymptotic density of this sequence is 0.971000... (Fortuny Ayuso et al., 2014). - Amiram Eldar, May 01 2021
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Pedro Fortuny Ayuso, Jose Maria Grau and Antonio Oller-Marcen, A von Staudt-type formula for Sum_{z in Zn[i]} z^k, arXiv:1402.0333 [math.NT], 2014.
MATHEMATICA
aa[n_] := aa[n] = Mod[Sum[PowerMod[a + b I, n, n], {a, n}, {b, n}], n]; Select[Range[100], aa[#] == 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Oct 15 2013
STATUS
approved