OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
t[n_] := n (n + 1)/2; ok[n_] := Block[{k = 1, t, tt = t /@ Range[ Sqrt[2*n]]}, While[{} == (r = IntegerPartitions[n, {k}, tt]), k++]; Length@ r == 1]; Select[Range[100], ok]
CROSSREFS
KEYWORD
nonn
AUTHOR
Martin Renner, May 25 2015
STATUS
approved