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] != a[k + n - 1] || a[k] == a[k + n], k++ ]; k]; Table[ f[n], {n, 42}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 19 2004
STATUS
approved