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