OFFSET
1,2
COMMENTS
Or, integers with no decimal digits 0 and 5 (see 2nd Mma).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
(*1*)Reap[Do[Le=Length[id=IntegerDigits[n]]; If[Min[Mod[Flatten[Table[FromDigits[Take[id, {x, y}]], {x, Le}, {y, x, Le}]], 5]]>0, Sow[n]], {n, 199}]][[2, 1]]
(*2*)Reap[Do[id=IntegerDigits[n]; If[Intersection[id, {0, 5}]== {}, Sow[n]], {n, 199}]][[2, 1]]
PROG
(PARI) a(n)=fromdigits(apply(d->if(d>3, d+1, d), digits(n-1, 8)))+1 \\ Charles R Greathouse IV, Aug 11 2015
(Haskell)
import Data.List.Ordered (isect)
a261189 n = a261189_list !! (n-1)
a261189_list = a052382_list `isect` a052413_list
-- Reinhard Zumkeller, Aug 13 2015
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Zak Seidov, Aug 11 2015
STATUS
approved