A232056 Numbers k such that S(24*(3*k+1)) !== 8*(3*k+1) (mod 24*(3*k+1)) where S(j) := Sum_{a=0..j-1, b=0..j-1} (a+b*i)^j and i is the imaginary unit; i.e., A230309(3*k+1) != 8*(3*k+1).

9, 18, 23, 37, 51

Offset

1,1

Comments

In most cases S(24*(3*k+1)) == 8*(3*k+1) (mod 24*(3*k+1)).

Links

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

Mathematica

fu[n_] := fu[n] = Mod[Sum[PowerMod[i + j I, n, n], {i, 0, n - 1}, {j, 0, n - 1}], n]; Select[Range[50], ! fu[24*(3 # +1)] == 8*(3 # +1) &]

Crossrefs

Cf. A230308, A230309, A230310, A232057.

Sequence in context: A141469 A046412 A171081 * A109661 A015798 A028494

Adjacent sequences: A232053 A232054 A232055 * A232057 A232058 A232059

Keyword

nonn,more,hard

Author

José María Grau Ribas, Nov 17 2013

Status

approved