OFFSET
1,2
MATHEMATICA
a[1] = 1; a[n_] := a[n] = 1 + a[n - a[a[a[n - 1]]]]; f[n_] := Block[{k = 1}, While[a[k] != n, k++ ]; k]; Table[ f[n], {n, 60}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2004
STATUS
approved