cp's OEIS Frontend

A292868 Records in A243823.

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