A118126 Lucky numbers (A000959) at which records in first differences (A031883) occur.

1, 3, 15, 51, 171, 745, 1057, 3507, 23205, 50779, 51475, 97113, 241887, 593727, 636291, 1661215, 6010095, 6100953, 8825911, 22032619, 24058237, 71730273, 84577003, 98797723, 119871675, 255510487, 380154649, 404917765, 704823889, 910302427, 1696449051, 2565189555, 9024827079

Offset: 1

Author

Robert G. Wilson v, May 12 2006

Keywords

• nonn
• more

Comments

An increasing subset of sequence A031884.

Examples

			a(4) = 51 since the 4th record value in the lucky number "first differences" sequence occurs A031883(14) = 12 which corresponds to lucky number A000959(14) = 51.
		

Crossrefs

Cf. A000959, A031883, A031884.

Programs

Mathematica

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

Extensions

a(25)-a(29) from Donovan Johnson, Oct 23 2010

a(30) from Donovan Johnson, Jun 20 2011

a(31)-a(33) from Kevin P. Thompson, Nov 24 2021