A244359 Numbers n such that n, n+1, n+2, n+3, and n+4 are not divisible by any of their nonzero digits.

866, 976, 7786, 8066, 8786, 8986, 9976, 70786, 77786, 79976, 80066, 80986, 87866, 89066, 89986, 98786, 99866, 99976, 700786, 707786, 709976, 770786, 778786, 778996, 780866, 788986, 789986, 799786, 799976, 800066, 800986, 809986, 879986, 887986, 888986, 889786, 890066, 890786, 890986

Offset

1,1

Comments

This is a subsequence of A244358.

All numbers end in a 6 and every number contains some combination of {6,7,8,9,0}.

There are no consecutive terms in this sequence. See A237766.

Links

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

Example

866, 867, 868, 869 and 870 are not divisible by any of their nonzero digits. Thus 866 is a member of this sequence.

Mathematica

div[n_]:=Module[{nzd=Select[IntegerDigits[n], #!=0&]}, NoneTrue[n/nzd, IntegerQ]]; SequencePosition[Table[If[div[n], 1, 0], {n, 900000}], {1, 1, 1, 1, 1}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 11 2018 *)

Prog

(Python)
def a(n):
..for i in range(10**4):
....tot = 0
....for k in range(i, i+n):
......c = 0
......for b in str(k):
........if b != '0':
..........if k%int(b)!=0:
............c += 1
......if c == len(str(k))-str(k).count('0'):
........tot += 1
....if tot == n:
......print(i, end=', ')
a(5)

Crossrefs

Cf. A038772, A244358, A237766.

Sequence in context: A114497 A129035 A129034 * A038657 A063900 A348818

Adjacent sequences: A244356 A244357 A244358 * A244360 A244361 A244362

Keyword

nonn,base

Author

Derek Orr, Jun 26 2014

Status

approved