OFFSET
0,5
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
FORMULA
EXAMPLE
a(6) = 15: {}, {1,4}, {1,6}, {2,4}, {2,6}, {3,4}, {3,6}, {4,5}, {5,6}, {1,2,4,6}, {1,3,4,6}, {1,4,5,6}, {2,3,4,6}, {2,4,5,6}, {3,4,5,6}.
MAPLE
f:= proc(n) option remember; `if`(n=0, 0, f(n-1)+
`if`((t-> ormap(issqr, [t-4, t+4]))(5*n^2), 1, 0))
end:
a:= n-> binomial(n, f(n)):
seq(a(n), n=0..38);
MATHEMATICA
f[n_] := Module[{j}, For[j = Floor@Log[GoldenRatio, n], Fibonacci[j+1] <= n, j++]; j-1];
a[n_] := If[n == 0, 1, Binomial[n, f[n]]];
Table[a[n], {n, 0, 38}] (* Jean-François Alcover, Nov 17 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Oct 20 2022
STATUS
approved