OFFSET
1,2
FORMULA
For n>1, a(n) = A053644(n) * n / 2.
MATHEMATICA
a[1] = 1; a[n_] := a[n] = Floor[ n / a[ Floor[n / 2]]]; t = Table[ a[n], {n, 1000}]; b[n_] := Block[{p = Position[t, n, 1, 1]}, If[p == {}, 0, p]]; Flatten[ Table[ b[n], {n, 60}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller and Robert G. Wilson v, Jul 21 2004
EXTENSIONS
Formula added by Max Alekseyev, Mar 02 2011
STATUS
approved