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)
a190127 n = a190127_list !! (n-1)
a190127_list =
map (succ . fromJust . (`elemIndex` a190126_list)) [1..10000]
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Reinhard Zumkeller, May 06 2011
STATUS
approved