OFFSET
1,1
LINKS
Alois P. Heinz, Antidiagonals n = 1..18, flattened
EXAMPLE
Square array A(n,k) begins:
2, 21, 610, 6765, 832040, 102334155, ...
3, 34, 987, 46368, 14930352, 4807526976, ...
5, 55, 2584, 196418, 267914296, 86267571272, ...
8, 144, 10946, 317811, 701408733, 225851433717, ...
13, 377, 3524578, 2178309, 1134903170, 10610209857723, ...
89, 4181, 9227465, 32951280099, 12586269025, 8944394323791464, ...
MAPLE
F:= combinat[fibonacci]: with(numtheory):
A:= proc() local h, p, q; p, q:= proc() [] end, 2;
proc(n, k)
while nops(p(k))<n do q:= q+1;
h:= nops(factorset(F(q)));
p(h):= [p(h)[], F(q)]
od; p(k)[n]
end
end():
seq(seq(A(n, 1+d-n), n=1..d), d=1..12);
MATHEMATICA
nmax = 12(*rows*);
maxIndex = 200; (* increase if message "part does not exist" *)
nu[n_] := nu[n] = PrimeNu[Fibonacci[n]];
col[k_] := Select[Range[maxIndex], nu[#] == k &];
T = Array[col, nmax];
A[n_, k_] := Fibonacci[T[[k, n]]];
Table[A[n-k+1, k], {n, 1, nmax}, {k, n, 1, -1}] // Flatten (* Jean-François Alcover, Feb 05 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Alois P. Heinz, Apr 19 2018
STATUS
approved