OFFSET
1,2
MATHEMATICA
Module[{nn=20, p}, p=PartitionsP[Range[nn]]; Table[FromDigits[Flatten[ IntegerDigits/@ Take[p, n]]], {n, nn}]] (* Harvey P. Dale, May 10 2021 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Omar E. Pol, Nov 12 2007
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 25 2010
STATUS
approved