OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 (full sequence)
PROG
(Haskell)
import Data.List (elemIndex)
import Data.Maybe (fromJust)
a190129 n = a190129_list !! (n-1)
a190129_list =
map (succ . fromJust . (`elemIndex` a190128_list)) [1..10000]
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Reinhard Zumkeller, May 06 2011
STATUS
approved