login
A118126
Lucky numbers (A000959) at which records in first differences (A031883) occur.
0
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.
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
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