OFFSET
0,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
PROG
(Haskell)
import Data.List (isInfixOf)
a261794 x = f $ tail a031298_tabf where
f (cs:css) = if isInfixOf cs (a031298_row x)
then f css else foldr (\d v -> 10 * v + d) 0 cs
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Sep 01 2015
EXTENSIONS
Name corrected by Álvar Ibeas, Sep 08 2020
STATUS
approved