A084835 a(n) = A000094(n+4) - A006918(n).
0, 0, 0, 0, 0, 1, 2, 5, 10, 18, 30, 49, 75, 112, 163, 231, 322, 441, 595, 792, 1045, 1361, 1760, 2255, 2871, 3626, 4559, 5691, 7077, 8750, 10780, 13216, 16156, 19662, 23868, 28866, 34828, 41882, 50262, 60138
Offset: 1
Keywords
Programs
-
Maple
A084845 := proc(n) A000094(n+4)-A006918(n) end proc: seq(A084845(n),n=1..40) ; # R. J. Mathar, May 17 2016
-
Mathematica
durf[ptn_]:=Length[Select[Range[Length[ptn]],ptn[[#]]>=#&]]; Table[Length[Select[IntegerPartitions[n],durf[#]>2&]],{n,0,30}] (* Gus Wiseman, Apr 12 2019 *)
Comments