|
|
A229309
|
|
Primitive numbers in A229305.
|
|
16
|
|
|
10, 26, 43, 55, 57, 58, 136, 155, 222, 253, 355, 381, 737, 876, 904, 1027, 1055, 1081, 1552, 1711, 1751, 1962, 2696, 2758, 3197, 3403, 3411, 3775, 3916, 4063, 4401, 5093, 5671, 6176, 6567, 7111, 8251, 8515, 8702, 9316, 9465, 10768, 11026, 12195, 12742, 13301
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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[80], !g[42*#] == # &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|