A325114 Integers k such that no nonzero subsequence of the decimal representation of k 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, 96, 99, 100, 101, 102, 103, 104, 106, 108, 109, 110, 111, 113, 115, 116, 118, 120
Offset: 1
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
- David A. Corneth, PARI program
Crossrefs
Programs
-
Mathematica
With[{k = 7}, Select[Range@ 100, NoneTrue[DeleteCases[FromDigits /@ Rest@ Subsequences[IntegerDigits@ #], 0], Mod[#, k] == 0 &] &]] (* Michael De Vlieger, Mar 31 2019 *)
-
PARI
\\ See Corneth link
Extensions
More than the usual number of terms are shown in order to distinguish this from a new sequence arising from the game of "buzz" (cf. A092433). - N. J. A. Sloane, Sep 09 2024
Comments