login
A229310
Primitive numbers in A229306.
16
7, 10, 26, 55, 57, 136, 155, 222, 253, 737, 876, 1027, 1081, 1552, 1711, 1751, 1962, 3197, 3403, 3775, 3916, 4401, 5671, 6176, 6567, 8251, 8515, 8702, 9316, 11026, 12195, 12742, 13301, 13861, 14878, 15657, 15931, 18145, 20242, 22387, 23126, 25651, 26202
OFFSET
1,1
MATHEMATICA
g[n_] := Mod[Sum[PowerMod[i, n, n], {i, 1, n}], n]; tachar[lis_, num_] := Select[lis, ! IntegerQ[#1/num] &]; primi[{}]={}; primi[lis_] := Join[{lis[[1]]}, primi[tachar[lis, lis[[1]]]]]; primi@Select[Range[500], !g[6*#] == # &]
CROSSREFS
Cf. A014117 (numbers n such that A031971(n)==1 (mod n)).
Cf. A229300 (numbers n such that A031971(1806*n)== n (mod n*1806)).
Cf. A229301 (numbers n such that A031971(42*n) == n (mod 42*n)).
Cf. A229302 (numbers n such that A031971(6*n) == n (mod 6*n)).
Cf. A229303 (numbers n such that A031971(2*n) == n (mod 2*n)).
Cf. A229304 (numbers n such that A031971(1806*n) <> n (mod n*1806)).
Cf. A229305 (numbers n such that A031971(42*n) <> n (mod 42*n)).
Cf. A229306 (numbers n such that A031971(6*n) <> n (mod 6*n)).
Cf. A229307 (numbers n such that A031971(2*n) <> n (mod 2*n)).
Cf. A229308 (primitive numbers in A229304).
Cf. A229309 (primitive numbers in A229305).
Cf. A229310 (primitive numbers in A229306).
Cf. A229311 (primitive numbers in A229307).
Sequence in context: A175492 A241052 A280173 * A064948 A064950 A240795
KEYWORD
nonn
AUTHOR
STATUS
approved