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
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- Index entries for 10-automatic sequences.
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
Comments