A119503 Increasing gaps in the even sieve (A056533) by lower term.

1, 5, 11, 27, 59, 85, 131, 163, 501, 603, 1145, 1381, 1563, 1937, 2763, 3953, 6731, 7665, 10741, 13787, 22001, 30555, 47953, 52745, 60201, 111541, 137913, 162499, 186163, 282593, 343483, 351163, 386805, 476051, 522129, 540497, 660409, 714643

Offset: 1

Author

Robert G. Wilson v, May 26 2006

Keywords

• nonn

Examples

			The even sieve begins: 1, 3, 5, 9, 11, 17, 19, 25, 27, 35, 37 and between 1&3 there is a gap of 2;
the difference between 3&5 is also 2, but between 5&9 the difference or gap is 4; etc.
		

Crossrefs

Cf. A056533.

Programs

Mathematica

lst = Range[10^6]; i = 2; While[i <= (len = Length[lst]), lst = Drop[lst, {i, len, i}]; i+=2]; l = {}; d = 0; Do[a = lst[[n + 1]] - lst[[n]]; If[a > d, d = a; AppendTo[l, lst[[n]]]], {n, Length@lst - 1}]; l