|
|
A329418
|
|
Lazy caterer's numbers (A000124) that are also cake numbers (A000125).
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
n a(n) i j
1 1 0 0
2 2 1 1
3 4 2 2
4 232 21 11
5 15226 174 45
|
|
MATHEMATICA
|
lazyCatererQ[n_] := IntegerQ @ Sqrt[8*n - 7]; cake[n_] := Binomial[n, 3] + n; Select[Table[cake[n], {n, 0, 100}], lazyCatererQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|