OFFSET
1,1
COMMENTS
Every positive integer occurs in this array or A370924.
EXAMPLE
Corner:
2 8 26 80 242 728 2186
6 7 18 22 24 25 54
19 20 21 23 55 56 58
57 59 60 61 64 65 69
172 173 177 178 181 182 183
516 518 519 520 532 533 534
1549 1550 1554 1555 1558 1559 1560
MATHEMATICA
d[n_] := First[IntegerDigits[n, 3]];
a[n_] := a[n] = Select[Range[30000],
d[#] == 2 && Length[Split[IntegerDigits[#, 3]]] == n &];
t[n_, k_] := a[n][[k]];
Grid[Table[t[n, k], {n, 1, 10}, {k, 1, 10}]] (* array *)
Table[t[n - k + 1, k], {n, 10}, {k, n, 1, -1}] // Flatten (* sequence *)
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Mar 13 2024
STATUS
approved