OFFSET
1,6
LINKS
Fausto A. C. Cariboni, Table of n, a(n) for n = 1..200
EXAMPLE
a(9)=4 since property holds for 4 partitions of 9: {7,2}, {6,3}, {5,4}, {5,2,2}.
MATHEMATICA
fun[n_]:=Select[IntegerPartitions[n], (Length[ # ]>1 && Last[ # ]First[ # ]>n)&]; Table[Length[fun[k]], {k, 40}]
(* second program: *)
A[n_] := Length@ Select[ IntegerPartitions@n, Length@# > 1 && Last@# First@# > n &]; Array[A, 56] (* Robert G. Wilson v, Apr 06 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Mar 14 2006
EXTENSIONS
More terms from Robert G. Wilson v, Apr 06 2006
STATUS
approved