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

Comments

An increasing subset of sequence A031884.

Links

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

Example

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.

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

Crossrefs

Cf. A000959, A031883, A031884.

Sequence in context: A043005 A165746 A248122 * A282464 A284663 A231747

Adjacent sequences: A118123 A118124 A118125 * A118127 A118128 A118129

Keyword

nonn,more

Author

Robert G. Wilson v, May 12 2006

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

Status

approved