(*Définition directe*)f[n_,x_]:=Module[{k,j},k=Floor[Log2[n+0.0001]];
j=n-2^k;
Boole[j/2^k<=x<=(j+1)/2^k]]

(*Création de la table avec la syntaxe de remplacement*)
tableFonctions=Table[Function[x,f[i,x]],{i,1,6}];

(*Affichage direct pour vérifier*)
GraphicsGrid[{Table[Plot[tableFonctions[[i]][x],{x,0,1},PlotRange->{0,1.1},PlotLabel->"n = "<>ToString[i],Filling->Axis,Exclusions->None],{i,1,6}]}]

(*On utilise votre modèle avec n=2^k*)sousSuiteTable=Table[Plot[f[2^k,x],{x,0,1},PlotRange->{0,1.1},PlotLabel->"n = "<>ToString[2^k],Filling->Axis,Exclusions->None],{k,0,4}];

GraphicsGrid[{sousSuiteTable}]