login
Records in A243823.
2

%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