|
%I #16 Jun 01 2022 01:56:39
%S 0,1,8,16,27,29,35,40,50,64,91,99,107,153,157,160,171,174,196,214,235,
%T 290,320,329,333,393,444,451,480,525,545,560,564,593,662,667,708,713,
%U 730,761,791,805,865,926,1015,1016,1035,1123,1148,1165,1186,1264,1366
%N Positions of records in A066888.
%H Amiram Eldar, <a href="/A083419/b083419.txt">Table of n, a(n) for n = 1..2000</a>
%t m = 1500; v = PrimePi[#[[2]]] - PrimePi[#[[1]]] & /@ Partition[Accumulate[Range[0, m + 1]], 2, 1]; seq = {}; vm = -1; Do[If[v[[k + 1]] > vm, vm = v[[k + 1]]; AppendTo[seq, k]], {k, 0, m}]; seq (* _Amiram Eldar_, Dec 14 2019 after _Harvey P. Dale_ at A066888 *)
%Y Cf. A066888.
%K easy,nonn
%O 1,3
%A _Jason Earls_, Jun 08 2003
%E Data corrected by _Amiram Eldar_, Dec 14 2019
|
