|
%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
|
