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,2

Links

Table of n, a(n) for n=1..38.

Example

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.

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

Crossrefs

Cf. A056533.

Sequence in context: A206440 A192300 A289775 * A048655 A181896 A041671

Adjacent sequences: A119500 A119501 A119502 * A119504 A119505 A119506

Keyword

nonn

Author

Robert G. Wilson v, May 26 2006

Status

approved