OFFSET
1,2
COMMENTS
Let (L(n)) be the Lucas sequence, A000032. Every positive integer n is a unique sum of distinct nonconsecutive Lucas numbers as given by the greedy algorithm. Let m(n) be the least term in this representation. Column 1 of the array shows the numbers n having m(n) = L(1); column 2 shows those n having m(n) = L(0) = 2. For k >= 3, column k shows those n having m(n) = L(k). The array is comparable to the Wythoff array, A035513, in which column k shows the numbers whose Zeckendorf representation (a sum of nonconsecutive Fibonacci numbers, A000045) has least term F(k+2).
The 1st Lucas-Wythoff array has increasing rows and increasing columns, and every positive integer occurs exactly once. However, the Fibonacci recurrence for rows (as in the Wythoff array), does not hold. Deleting column 2 leaves the 2nd Lucas-Wythoff array (A335500), in which the Fibonacci recurrence holds for rows.
LINKS
L. Carlitz, R. Scoville, and V. E. Hoggatt, Jr., Lucas representations, Fibonacci Quart. 10 (1972), 29-42, 70, 112.
Clark Kimberling, Lucas Representations of Positive Integers, J. Int. Seq., Vol. 23 (2020), Article 20.9.5.
FORMULA
EXAMPLE
Corner:
1 2 3 4 7 11 18 29 47
5 6 10 15 25 40 65 105 170
8 9 14 22 36 58 94 152 246
12 13 21 33 54 87 141 238 369
16 17 28 44 72 116 188 304 492
19 20 32 51 83 134 217 351 568
MATHEMATICA
r = GoldenRatio; u[n_, k_] := LucasL[k] Floor[n*r] + (n - 1) LucasL[k - 1];
v[k_] := k + Floor[r*Floor[r*k]]; (* column 2 *)
w[n_, 2] := v[n]; w[n_, k_] := u[n, k - 1]; w[n_, 1] := u[n, 1];
TableForm[Table[w[n, k], {n, 1, 15}, {k, 1, 20}]] (* A335499, array **)
Table[w[n - k + 1, k], {n, 1, 12}, {k, n, 1, -1}] // Flatten (* A335499, sequence *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Jun 12 2020
STATUS
approved