OFFSET
1,8
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
FORMULA
MATHEMATICA
PROG
(Magma)
A023533:= func< n | Binomial(Floor((6*n-1)^(1/3)) +2, 3) ne n select 0 else 1 >;
[(&+[A023533(k)*(1-A023533(n+1-k)): k in [1..Floor((n+1)/2)]]): n in [1..100]]; // G. C. Greubel, Jul 15 2022
(SageMath)
def A023533(n):
if binomial( floor( (6*n-1)^(1/3) ) +2, 3) != n: return 0
else: return 1
[sum(A023533(k)*(1-A023533(n-k+1)) for k in (1..((n+1)//2))) for n in (1..100)] # G. C. Greubel, Jul 15 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved