OFFSET
2,172
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..5000
MATHEMATICA
PROG
(Magma)
A023533:= func< n | Binomial(Floor((6*n-1)^(1/3)) +2, 3) ne n select 0 else 1 >;
A023531:= func< n | IsSquare(8*n+9) select 1 else 0 >;
[A024889(n): n in [2..130]]; // G. C. Greubel, Aug 02 2022
(SageMath)
@CachedFunction
def A023533(n): return 0 if (binomial(floor((6*n-1)^(1/3)) +2, 3) != n) else 1
def A023531(n): return 1 if is_square(8*n+9) else 0
[A024889(n) for n in (2..130)] # G. C. Greubel, Aug 02 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved