%I #14 Nov 18 2017 02:51:33
%S 0,1,3,4,5,6,8,9,11,13,14,16,17,18,19,20,21,22,23,25,26,27,31,32,35,
%T 36,38,39,40,45,46,52,53,54,55,58,60,62,68,74,78,79,85,90,98,104,108,
%U 119,120,123,126,128,135,136,142,144,146,153,158,164,166,171,176
%N Records in A243823.
%C See A292867 for comments, linked tables, and conjectures. - _Michael De Vlieger_, Nov 17 2017
%H Michael De Vlieger, <a href="/A292868/b292868.txt">Table of n, a(n) for n = 1..1500</a>
%e First 20 terms and their positions b(n) in A243823:
%e n a(n) b(n)
%e -------------
%e 1 0 1
%e 2 1 8
%e 3 3 14
%e 4 4 16
%e 5 5 20
%e 6 6 22
%e 7 8 26
%e 8 9 28
%e 9 11 32
%e 10 13 38
%e 11 14 40
%e 12 16 44
%e 13 17 46
%e 14 18 48
%e 15 19 50
%e 16 20 52
%e 17 21 54
%e 18 22 56
%e 19 23 58
%e 20 25 62
%t Union@ FoldList[Max, Table[Count[Range[4, n - 2], _?(Nor[CoprimeQ[#, n], PowerMod[n, Floor@ Log2@ n, #] == 0] &)], {n, 312}]] (* _Michael De Vlieger_, Oct 02 2017 *)
%Y Cf. A243823, A272619, A292867.
%K nonn
%O 1,3
%A _Michael De Vlieger_, Oct 02 2017