OFFSET
0,3
LINKS
MATHEMATICA
a[0] := 0; a[n_] := a[n] = a[n] = n - a[a[a[a[n - 1]]]]; Table[Select[Range[0, 199], a[#] == n &][[1]], {n, 0, 65}] (* Alonso del Arte, Aug 17 2011 *)
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a194081 n = a194081_list !! n
a194081_list = map (fromJust . (`elemIndex` a005375_list)) [0..]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 17 2011
STATUS
approved