Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #24 Dec 03 2021 11:40:28
%S 1,2,4,6,7,8,12,16,20,24,28,40,44,48,52,60,68,76,80,92,112,116,120,
%T 124,148,154,164,172,188,204,208,212,236,240,244,264,268,280,284,292,
%U 316,332,340,356,364,388,404,412,428,436,452,508,520,524,548,556,596
%N Positive integers n such that 2^n == 16 (mod n).
%C Odd terms are given by A033984.
%C For all m, 2^A128121(m)-1 belongs to this sequence.
%H T. D. Noe, <a href="/A015924/b015924.txt">Table of n, a(n) for n = 1..1000</a>
%H OEIS Wiki, <a href="/wiki/2^n mod n">2^n mod n</a>
%t Select[Range[1000], Mod[2^# - 2^4, #] == 0 &] (* _T. D. Noe_, Aug 17 2012 *)
%t Join[{1,2,4,6,7,8,12,16},Select[Range[600],PowerMod[2,#,#]==16&]] (* _Harvey P. Dale_, Dec 03 2021 *)
%Y Contains A050992 as a subsequence.
%Y Cf. A033984, A173138.
%K nonn
%O 1,2
%A _Robert G. Wilson v_
%E Edited and terms 1,2,4,6,7,8,12,16 prepended by _Max Alekseyev_, Jul 29 2011