OFFSET
0,7
COMMENTS
Euler transform of period 3 sequence [ 0, 0, 1, ...]. - Kevin T. Acres, Apr 28 2018
FORMULA
a(3*n) = A000041(n). a(3*n + 1) = a(3*n + 2) = 0. - Michael Somos, Jun 02 2012
MAPLE
a:= n-> `if`(irem(n, 3)=0, combinat[numbpart](n/3), 0):
seq(a(n), n=0..84); # Alois P. Heinz, Jun 22 2021
MATHEMATICA
a[n_] := If[Mod[n, 3] == 0, PartitionsP[n/3], 0];
Table[a[n], {n, 0, 84}] (* Jean-François Alcover, Jan 24 2025, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
