A250217 Numbers k such that A085398(k) sets a new record value.
1, 11, 18, 23, 25, 37, 68, 113, 115, 179, 229, 421, 545, 1129, 1451, 1481, 1847, 1987, 3099, 3329, 4391
Offset: 1
Programs
-
Mathematica
Function[s, Function[t, Map[Position[s, #][[1, 1]] &, t]]@ Union@ FoldList[Max, s]]@ Table[k = 2; While[! PrimeQ[Cyclotomic[n, k]], k++]; k, {n, 500}] (* Michael De Vlieger, May 20 2017, after Eric Chen at A085398 *)
Extensions
Corrected by insertion of 421. - Robert G. Wilson v, May 19 2017
a(17)-a(21) from Jinyuan Wang, Dec 17 2022
Comments