Hofstadter Male-Female Sequences

Author

Eric W. Weisstein
July 12, 2005

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/HofstadterMale-FemaleSequences.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/HofstadterMale-FemaleSequences.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Enumeration

F[n_]:=F[n]=n-M[F[n-1]]
M[n_]:=M[n]=n-F[M[n-1]]
F[0]:=1
M[0]:=0

F/@Range[0,10]

M/@Range[0,10]

Plots

<<Utilities`Plot`

ArrayPlot[NaryPlot[F/@Range[0,256]],PixelConstrained->True,Frame->False,ImageSize->520]

ArrayPlot[NaryPlot[M/@Range[0,256]],PixelConstrained->True,Frame->False,ImageSize->520]