

A119503


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



