A325114 Integers such that no nonzero subsequence of decimal representation is divisible by 7.

1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 18, 19, 20, 22, 23, 24, 25, 26, 29, 30, 31, 32, 33, 34, 36, 38, 39, 40, 41, 43, 44, 45, 46, 48, 50, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, 64, 65, 66, 68, 69, 80, 81, 82, 83, 85, 86, 88, 89, 90, 92, 93, 94, 95

Offset

1,2

Links

Table of n, a(n) for n=1..67.

Mathematica

With[{k = 7}, Select[Range@ 100, NoneTrue[DeleteCases[FromDigits /@ Rest@ Subsequences[IntegerDigits@ #], 0], Mod[#, k] == 0 &] &]] (* Michael De Vlieger, Mar 31 2019 *)

Crossrefs

Cf. A014261 (for 2), A325112 (for 3), A325113 (for 4), A261189 (for 5).

Sequence in context: A302478 A356939 A113619 * A004765 A247063 A003726

Adjacent sequences: A325111 A325112 A325113 * A325115 A325116 A325117

Keyword

nonn,base

Author

Jonathan Kal-El Peréz, Mar 27 2019

Status

approved