In[]:=
Graphics[Table[Text[4i+7j,{i,j}],{i,0,7},{j,0,7}]]
Out[]=
In[]:=
With[{max=10},With[{dups=First/@Select[Gather[Flatten[Table[If[i+j>max,Nothing,4i+7j],{i,0,max},{j,0,max}]]],Length[#]>1&]},Graphics[{Style[Line[RotationMatrix[-135Degree].#&/@(Position[Table[4i+7j,{i,0,max},{j,0,max}],#]-1)&/@dups],Lighter[Blue,.5]],Flatten[Table[If[i+j>max,Nothing,{Style[{Line[RotationMatrix[-135Degree].#&/@{{i,j},{i+1,j}}],Line[RotationMatrix[-135Degree].#&/@{{i,j},{i,j+1}}]},LightGray],Text[4i+7j,RotationMatrix[-135Degree].{i,j}]}],{i,0,max},{j,0,max}]]}]]]
Out[]=
In[]:=
Position[Table[4i+7j,{i,0,10},{j,0,10}],28]
Out[]=
{{1,5},{8,1}}
In[]:=
Gather[Flatten[Table[4i+7j,{i,0,10},{j,0,10}]]]
Out[]=
{{0},{7},{14},{21},{28,28},{35,35},{42,42},{49,49},{56,56},{63,63},{70,70},{4},{11},{18},{25},{32,32},{39,39},{46,46},{53,53},{60,60},{67,67},{74,74},{8},{15},{22},{29},{36,36},{43,43},{50,50},{57,57},{64,64},{71,71},{78,78},{12},{19},{26},{33},{40,40},{47,47},{54,54},{61,61},{68,68},{75,75},{82,82},{16},{23},{30},{37},{44},{51},{58},{65},{72},{79},{86},{20},{27},{34},{41},{48},{55},{62},{69},{76},{83},{90},{24},{31},{38},{45},{52},{59},{66},{73},{80},{87},{94},{77},{84},{91},{98},{81},{88},{95},{102},{85},{92},{99},{106},{89},{96},{103},{110}}
In[]:=
First/@Select[Gather[Flatten[Table[If[i+j>10,Nothing,4i+7j],{i,0,10},{j,0,10}]]],Length[#]>1&]
Out[]=
{28,35,42,49,32,39,46,36,43,40}
In[]:=
With[{max=5,vec={3,5,7}},With[{dups=First/@Select[Gather[Flatten[Table[If[i+j+k>max,Nothing,vec.{i,j,k}],{i,0,max},{j,0,max},{k,0,max}]]],Length[#]>2&]},Graphics3D[{Style[Line[(Position[Table[vec.{i,j,k},{i,0,max},{j,0,max},{k,0,max}],#]-1)&/@dups],Lighter[Blue,.5]],Flatten[Table[If[i+j+k>max,Nothing,{Style[{Line[{{i,j,k},{i+1,j,k}}],Line[{{i,j,k},{i,j+1,k}}],Line[{{i,j,k},{i,j,k+1}}]},LightGray],Text[vec.{i,j,k},{i,j,k}]}],{i,0,max},{j,0,max},{k,0,max}]]}]]]
Out[]=
NestGraph[n{BitShiftLeft[3n],BitShiftRight[n]},1,20]
Out[]=
In[]:=
NestGraph[n{BitShiftLeft[3n],BitShiftRight[n]},1,30]
Out[]=
