login
Numbers k such that A085398(k) sets a new record value.
1

%I #30 Dec 17 2022 08:24:55

%S 1,11,18,23,25,37,68,113,115,179,229,421,545,1129,1451,1481,1847,1987,

%T 3099,3329,4391

%N Numbers k such that A085398(k) sets a new record value.

%C Record values at positions A085398(a(n)): {3, 5, 6, 10, 22, 61, 85, 86, 268, 304, 606, 808, ...}. - _Michael De Vlieger_, May 20 2017

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

%Y Cf. A085398, A250218.

%K nonn,more

%O 1,2

%A _Eric Chen_, Dec 24 2014

%E Corrected by insertion of 421. - _Robert G. Wilson v_, May 19 2017

%E a(17)-a(21) from _Jinyuan Wang_, Dec 17 2022