Recursive Sequence

Author

Eric W. Weisstein
December 17, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/RecursiveSequence.nb.

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

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

Initialization

a[1]:=1
a[2]:=1
a[n_?NumericQ]:=a[n]=a[a[n-1]]+a[n-a[n-1]]

Show[GraphicsArray[
Partition[IntegerListPlot[Table[#[[1]][n],{n,#[[2]]}],
PlotJoined->True,
AxesLabel->TraditionalForm/@{n,#[[1]][n]},
DisplayFunction->Identity]&/@Transpose[{{Fibonacci,Hofstadter,a},{15,500,500}}],2,2,{1,1},{}
]]]