OFFSET
2,5
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..5000
MATHEMATICA
b[j_]:= b[j]= Sum[KroneckerDelta[j, Binomial[m+2, 3]], {m, 0, 15}];
Table[A025086[n], {n, 2, 100}] (* G. C. Greubel, Sep 08 2022 *)
PROG
(Magma)
A023533:= func< n | Binomial(Floor((6*n-1)^(1/3)) +2, 3) ne n select 0 else 1 >;
[A025086(n): n in [2..100]]; // G. C. Greubel, Sep 08 2022
(SageMath)
@CachedFunction
def b(j): return sum(bool(j==binomial(m+2, 3)) for m in (0..10))
@CachedFunction
def A025086(n): return sum(fibonacci(n-j+1)*b(j) for j in (((n+3)//2)..n))
[A025086(n) for n in (2..100)] # G. C. Greubel, Sep 08 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected by G. C. Greubel, Sep 08 2022
STATUS
approved