OFFSET
1,2
COMMENTS
EXAMPLE
The upper left hand 11 X 11 section of the table for a(n) <= 2*10^7:
1 2 3 4 5 6 7 8 9 10 11 ...
----------------------------------------------------------------------
1 3 9 21 81 147 729 903 3025 6875 59049
2 5 25 27 625 171 15625 987 3249 7203 9765625
4 7 49 33 1250 207 31250 1029 4761 13203 19531250
8 10 50 39 2401 243 117649 1113 6561 13527 ...
16 11 98 51 4802 261 235298 1239 7569 14013 ...
32 13 121 55 14641 275 1771561 1265 8649 14499 ...
64 14 169 57 28561 279 3543122 1281 12321 14661 ...
128 17 242 65 29282 333 4826809 1375 14161 15471 ...
256 19 289 69 57122 363 7086244 1407 15129 15633 ...
512 22 338 85 58564 369 9653618 1491 16641 15957 ...
1024 23 361 87 83521 387 19307236 1533 17689 16119 ...
...
Each column k > 1 contains odd and even numbers since, e.g., 5^(k-1) and 2 * 5^(k-1) belong to it.
Odd numbers in column 3: A001248(k), k > 1.
Numbers in column 5 have the form 2^k * p^4 with p > 2 prime and 0 <= k < floor(log_2(p)).
Odd numbers in column 5: A030514(k), k > 1.
Column 6: subsequence of A320511; 189 is the smallest number not in column 6.
Smallest even number in column 6 is 5050.
Column 7: Numbers have the form 2^k * p^6 with p > 2 prime and 0 <= k < floor(log_2(p)).
Odd numbers in column 7: A030516(k), k > 1.
Numbers in the column numbered with the n-th prime p_n have the form: 2^k * p^(p_n - 1) with p > 2 prime and 0 <= k < floor(log_2(p_n)).
MATHEMATICA
width1Table[n_, {r_, c_}] := Module[{k, list=Table[{}, c], wL, wLen, pCount, colLen}, For[k=1, k<=n, k++, wL=a341969[k]; wLen=Length[wL]; pCount=(wLen+1)/2; If[pCount<=c&&Length[list[[pCount]]]<r&&SubsetQ[{0, 1}, Union[wL]], AppendTo[list[[pCount]], k]]]; Transpose[PadRight[list, {c, r}, "..."]]]
a357581[n_, r_] := Module[{arr=width1Table[n, {r, r}], vec=Table[0, PolygonalNumber[r]], i, j}, For[i=1, i<=r, i++, For[j=r-i+1, j>=1, j--, vec[[PolygonalNumber[i+j-2]+j]]=arr[[i, j]]]]; vec]
a357581T[n_, r_] := TableForm[width1Table[n, {r, r}]]
a357581[120000, 10] (* sequence data - first 10 antidiagonals *)
a357581T[120000, 10] (* upper left hand 10x10 array *)
a357581T[20000000, 11] (* 11x11 array - very long computation time *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Hartmut F. W. Hoft, Oct 04 2022
STATUS
approved