A083419 Positions of records in A066888.

0, 1, 8, 16, 27, 29, 35, 40, 50, 64, 91, 99, 107, 153, 157, 160, 171, 174, 196, 214, 235, 290, 320, 329, 333, 393, 444, 451, 480, 525, 545, 560, 564, 593, 662, 667, 708, 713, 730, 761, 791, 805, 865, 926, 1015, 1016, 1035, 1123, 1148, 1165, 1186, 1264, 1366

Offset: 1

Author

Jason Earls, Jun 08 2003

Keywords

• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..2000

Crossrefs

Cf. A066888.

Programs

Mathematica

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

Extensions

Data corrected by Amiram Eldar, Dec 14 2019