A292868 Records in A243823.

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, 36, 38, 39, 40, 45, 46, 52, 53, 54, 55, 58, 60, 62, 68, 74, 78, 79, 85, 90, 98, 104, 108, 119, 120, 123, 126, 128, 135, 136, 142, 144, 146, 153, 158, 164, 166, 171, 176

Offset: 1

Author

Michael De Vlieger, Oct 02 2017

Keywords

• nonn

Comments

See A292867 for comments, linked tables, and conjectures. - Michael De Vlieger, Nov 17 2017

Examples

			First 20 terms and their positions b(n) in A243823:
   n  a(n) b(n)
  -------------
   1    0    1
   2    1    8
   3    3   14
   4    4   16
   5    5   20
   6    6   22
   7    8   26
   8    9   28
   9   11   32
  10   13   38
  11   14   40
  12   16   44
  13   17   46
  14   18   48
  15   19   50
  16   20   52
  17   21   54
  18   22   56
  19   23   58
  20   25   62
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..1500

Crossrefs

Cf. A243823, A272619, A292867.

Programs

Mathematica

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 *)