A069050 Numbers k such that 2^k mod phi(k) = 2^phi(k) mod k.

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

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..300

Mathematica

Select[Range[13000], PowerMod[2, #, EulerPhi[#]]==PowerMod[2, EulerPhi[ #], #]&] (* Harvey P. Dale, Aug 21 2016 *)

Crossrefs

Sequence in context: A335853 A247213 A302934 * A343844 A059174 A258585

Adjacent sequences: A069047 A069048 A069049 * A069051 A069052 A069053

Keyword

easy,nonn

Author

Benoit Cloitre, Apr 03 2002

Status

approved