login
Positions of records in A066888.
1

%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