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)
a190017 n = a190017_list !! (n-1)
a190017_list =
map (succ . fromJust . (`elemIndex` a190016_list)) [1..10000]
(PARI) A190017=vecsort(A190016=vecsort(vector(10^4, n, Str(n)), , 1), , 1) \\ M. F. Hasler, Oct 26 2019
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Reinhard Zumkeller, May 06 2011
STATUS
approved