OFFSET
1,3
EXAMPLE
Irregular triangle begins:
1;
1, 2;
1, 3;
1, 2;
1, 5;
1, 2, 3;
1;
1, 2, 8;
1, 3;
1, 2, 5;
...
MATHEMATICA
With[{fib = Fibonacci[Range[2, 10]]}, row[n_] := Select[Divisors[n], MemberQ[fib, #] &]; Table[row[n], {n, 1, fib[[-1]]}] // Flatten] (* Amiram Eldar, Jul 16 2022 *)
PROG
(PARI) isfib(n) = my(k=n^2); k+=(k+1)<<2; issquare(k) || (n>0 && issquare(k-8)); \\ A010056
row(n) = select(isfib, divisors(n));
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Michel Marcus, Jul 16 2022
STATUS
approved