A031884 Smaller of a pair of consecutive lucky numbers with a gap of 2n.
1, 3, 15, 79, 141, 51, 787, 495, 171, 937, 903, 745, 2851, 1611, 1057, 3811, 5769, 4893, 8719, 10683, 9841, 24073, 9567, 28245, 25687, 3507, 26943, 35743, 44805, 51979, 64723, 23205, 50779, 51475, 264075, 155833, 238057, 178755, 143311, 400591, 223095, 181581, 466813
Offset: 1
Keywords
Examples
a(4) = 79 since the lucky numbers A000959(20) = 79 and A000959(21) = 87 are the first consecutive pair with difference 2*4 = 8.
Links
- Kevin P. Thompson, Table of n, a(n) for n = 1..165 (terms 1..135 from Donovan Johnson)
- Kevin P. Thompson, Table of n, a(n) for n = 1..210 with unknown terms
Crossrefs
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++ ]; f[n_] := Block[{k = 1}, While[t[[k + 1]] - t[[k]] != 2n, k++ ]; t[[k]]]; Array[f, 41] (* Robert G. Wilson v, May 12 2006 *)
Extensions
More terms from Robert G. Wilson v, May 12 2006
Comments