2+2

1000!

N[Pi,1000]

Manipulate[Plot[Sin[a x],{x,0,10}],{a,1,5}]

RandomGraph[{100,300}]

CommunityGraphPlot[]

CurrentImage[]

EdgeDetect[]

ChromaticityPlot3D[]

LinguisticAssistant["Population"]

Table[GeoGraphics[GeoDisk[LinguisticAssistant,Quantity[10^n,"Mile"] ]],{n,0,4}]

Rasterize/@Alphabet[]

FeatureSpacePlot[%]

RulePlot[CellularAutomaton[30]]

ArrayPlot[CellularAutomaton[30,{{1},0},400]]

Table[ArrayPlot[CellularAutomaton[n,{{1},0},{50,All}]],{n,0,63}]

CenterArray[{1},20,0]

NestList[RotateLeft[#]+RotateRight[#]&,CenterArray[{1},20,0],10]/. 0->""//Grid

NestList[RotateLeft[#]+RotateRight[#]&,CenterArray[{1},40,0],20]/. 0->""//Grid

Table[Mod[n,2],{n,10}]

NestList[Mod[RotateLeft[#]+RotateRight[#],2]&,CenterArray[{1},20,0],10]/. 0->""//Grid

ArrayPlot[NestList[Mod[RotateLeft[#]+RotateRight[#],2]&,CenterArray[{1},50,0],30]]

ArrayPlot[NestList[Mod[RotateLeft[#]+RotateRight[#],5]&,CenterArray[{1},100,0],50]]

ArrayPlot[NestList[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),5]&,CenterArray[{1},100,0],50]]

ArrayPlot[NestList[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),3]&,CenterArray[{1},100,0],50]]

Table[ArrayPlot[NestList[Mod[(a+RotateLeft[#])*(b+RotateRight[#]),2]&,CenterArray[{1},100,0],50]],{a,0,1},{b,0,1}]

Table[ArrayPlot[NestList[Mod[(a+RotateLeft[#])*(b+RotateRight[#]),3]&,CenterArray[{1},100,0],50]],{a,0,2},{b,0,2}]

ArrayPlot[NestList[RotateRight[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),3]]&,CenterArray[{1},100,0],50]]

ArrayPlot[Take[NestList[RotateRight[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),3]]&,CenterArray[{1},200,0],200],1;;-1;;2]]

ArrayPlot[Take[NestList[RotateRight[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),3]]&,CenterArray[{1},3000,0],3000],1;;-1;;2]]

ArrayPlot[Take[NestList[RotateRight[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),3]]&,CenterArray[{1},3000,0],3000],1;;-1;;2],ColorRules->{0->Black,1->Red,2->Blue}]

(First[#]-#)&[Flatten[FirstPosition[Reverse[#],1|2]&/@Take[NestList[RotateRight[Mod[(1+RotateLeft[#])*(2+RotateRight[#]),3]]&,CenterArray[{1},2000,0],2000],1;;-1;;2]]]

ListLinePlot[%]

Fit[%32,{1,x},x]

Differences[%32]

Split[%]

Length/@Take[%,1;;-1;;2]

ListLinePlot[%,PlotRange->All]

Histogram[%%]

ListLinePlot[Table[DigitCount[n,2,1],{n,500}]]

Other Moduli

Table[ArrayPlot[NestList[Mod[(a+RotateLeft[#])*(b+RotateRight[#]),4]&,CenterArray[{1},100,0],50],PlotLabel->{a,b}],{a,0,3},{b,0,3}]

ArrayPlot[NestList[Mod[(1+RotateLeft[#])*(1+RotateRight[#]),4]&,CenterArray[{1,2,1},100,0],50]]

ArrayPlot[NestList[Mod[(1+RotateLeft[#])*(1+RotateRight[#]),4]&,RandomInteger[2,100],50]]

Table[ArrayPlot[NestList[Mod[(a+RotateLeft[#])*(b+RotateRight[#]),4]&,CenterArray[{1,2},100,0],50],PlotLabel->{a,b}],{a,0,3},{b,0,3}]

Table[ArrayPlot[NestList[Mod[(a+RotateLeft[#])*(b+RotateRight[#]),5]&,CenterArray[{1,2},100,0],50],PlotLabel->{a,b}],{a,0,4},{b,0,4}]

ArrayPlot[Take[NestList[RotateRight[Mod[(3+RotateLeft[#])*(3+RotateRight[#]),5]]&,CenterArray[{1,2},2000,0],2000],1;;-1;;2]]

ArrayPlot[Take[NestList[RotateRight[Mod[(3+RotateLeft[#])*(3+RotateRight[#]),5]]&,CenterArray[{1,2},200,0],200],1;;-1;;2]]

ArrayPlot[Take[NestList[Mod[(3+RotateLeft[#])*(3+RotateRight[#]),5]&,CenterArray[{1,2},200,0],200],1;;-1;;2]]

ArrayPlot[NestList[Mod[(3+RotateLeft[#])*(3+RotateRight[#]),5]&,CenterArray[{1,2},200,0],200]]

ArrayPlot[NestList[Mod[(3+RotateLeft[#])*(3+RotateRight[#]),5]&,CenterArray[{1,2},2000,0],2000]]

ArrayPlot[Take[NestList[Mod[(2+RotateLeft[#])*(4+RotateRight[#]),5]&,CenterArray[{1,2},4000,0],2000],1;;-1;;2]]

N[Exp[Pi Sqrt[163]],100]

FractionalPart[N[Exp[Pi Sqrt[163]],100]]