A261189 Integers such that no subsequence of decimal representation is divisible by 5.

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19, 21, 22, 23, 24, 26, 27, 28, 29, 31, 32, 33, 34, 36, 37, 38, 39, 41, 42, 43, 44, 46, 47, 48, 49, 61, 62, 63, 64, 66, 67, 68, 69, 71, 72, 73, 74, 76, 77, 78, 79, 81, 82, 83, 84, 86, 87, 88, 89, 91, 92, 93, 94, 96, 97, 98, 99, 111, 112, 113, 114, 116, 117, 118, 119, 121

Offset: 1

Author

Zak Seidov, Aug 11 2015

Keywords

• nonn
• base
• easy

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
• Index entries for 10-automatic sequences.

Crossrefs

Cf. A114922, A261188.

Intersection of A052382 and A052413.

Programs

Haskell

import Data.List.Ordered (isect)
a261189 n = a261189_list !! (n-1)
a261189_list = a052382_list `isect` a052413_list
-- Reinhard Zumkeller, Aug 13 2015

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]]

PARI

a(n)=fromdigits(apply(d->if(d>3,d+1,d), digits(n-1,8)))+1 \\ Charles R Greathouse IV, Aug 11 2015