OFFSET
1,2
COMMENTS
A dyslexic person might have trouble distinguishing this sequence from A125887!
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Hans Havermann, Graph of first 10000 terms
MATHEMATICA
s={1}; fi=1; Do[Do[id=IntegerDigits[i]; la=id[[ -1]]; If[fi==la&&FreeQ[s, i], AppendTo[s, i]; fi=id[[1]]; Break[]], {i, 11, 10^5}], {999}]; s
PROG
(Haskell)
import Data.List (delete)
a125886 n = a125886_list !! (n-1)
a125886_list = 1 : f 1 [10..] where
f u vs = g vs where
g (w:ws) = if a010879 w == iu then w : f w (delete w vs) else g ws
iu = a000030 u
-- Reinhard Zumkeller, Aug 10 2014
CROSSREFS
AUTHOR
Zak Seidov, Dec 13 2006
STATUS
approved