OFFSET
1,1
EXAMPLE
MATHEMATICA
cnQ[n_]:=Module[{idn=IntegerDigits[n], len}, len=Length[idn]; DigitCount[ n, 10, 0]==1&&OddQ[len]&&idn[[(len+1)/2]]==0]; Select[PartitionsP[ Range[ 2000]], cnQ] (* Harvey P. Dale, Apr 10 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Omar E. Pol, Dec 21 2010
EXTENSIONS
a(11) from Alois P. Heinz, Dec 23 2010
STATUS
approved