|
|
A069050
|
|
Numbers k such that 2^k mod phi(k) = 2^phi(k) mod k.
|
|
1
|
|
|
1, 2, 4, 8, 16, 32, 64, 108, 128, 188, 224, 252, 256, 288, 296, 336, 448, 504, 512, 576, 672, 716, 972, 1008, 1024, 1404, 1472, 2016, 2048, 2268, 2808, 3324, 3888, 4096, 4860, 5184, 5500, 6480, 7776, 8192, 8748, 8952, 9720, 9896, 11000, 11104, 12256
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[13000], PowerMod[2, #, EulerPhi[#]]==PowerMod[2, EulerPhi[ #], #]&] (* Harvey P. Dale, Aug 21 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|