A292867 Indices of records in A243823.
1, 8, 14, 16, 20, 22, 26, 28, 32, 38, 40, 44, 46, 48, 50, 52, 54, 56, 58, 62, 64, 68, 72, 78, 80, 86, 88, 92, 94, 96, 100, 108, 114, 122, 124, 126, 130, 132, 138, 144, 156, 160, 162, 174, 186, 192, 204, 216, 222, 228, 234, 240, 246, 252, 258, 264, 270, 276, 282
Offset: 1
Keywords
Examples
8 is in the sequence since it is the first number n such that A243823(n) > 0. 14 appears immediately after 8 since A243823(14) = 3, and 3 is greater than the values that precede it. Table of indices a(n) of records b(n) in A243823 = n - phi(n) - A010846(n) + 1: . n a(n) b(n) phi(a(n)) A010846(a(n)) ------------------------------------- 1 1 0 1 1 2 8 1 4 4 3 14 3 6 6 4 16 4 8 5 5 20 5 8 8 6 22 6 10 7 7 26 8 12 7 8 28 9 12 8 9 32 11 16 6 10 38 13 18 8 11 40 14 16 11 12 44 16 20 9 13 46 17 22 8 14 48 18 16 15 15 50 19 20 12 16 52 20 24 9 17 54 21 18 16 18 56 22 24 11 19 58 23 28 8 20 62 25 30 8 ...
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..1500
- Michael De Vlieger, Records and Indices of Records in A243823
Programs
-
Mathematica
With[{s = Table[Count[Range[4, n - 2], ?(Nor[CoprimeQ[#, n], PowerMod[n, Floor@ Log2@ n, #] == 0] &)], {n, 282}]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]] (* _Michael De Vlieger, Oct 02 2017 *)
Comments