A217491 - OEIS

A217491

Next largest positive integer without a digit 1 and not divisible by any digit of the preceding term.

2, 3, 4, 5, 6, 7, 8, 9, 20, 23, 25, 27, 29, 33, 34, 35, 37, 38, 43, 46, 47, 50, 52, 53, 56, 57, 58, 59, 62, 63, 64, 65, 67, 68, 69, 70, 72, 73, 74, 75, 76, 79, 80, 82, 83, 85, 86, 87, 89, 92, 93, 94, 95, 96, 97, 200, 203, 205, 207, 209, 223, 227, 229, 233, 235, 239, 245, 247, 249

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

E. Angelini, (n+1) is not divisible by any digit of n, Oct 04 2012

E. Angelini, (n+1) is not divisible by any digit of n [Cached copy, with permission]

MATHEMATICA

nxt[n_]:=Module[{k=n+1}, While[DigitCount[k, 10, 1]>0||AnyTrue[k/IntegerDigits[n], IntegerQ], k++]; k]; NestList[nxt, 2, 70]//Quiet (* Harvey P. Dale, Sep 26 2025 *)

PROG

(PARI) A217491_vect(Nmax)={my(a=[], d=[0], L=0, nd); while( #a<Nmax, for( t=L+1, 9e9, for(i=1+!d[1], #d, t%d[i] || next(2)); nd=Set(digits(t)); setsearch(nd, 1) & next; a=concat(a, L=t); d=nd; break)); a}

CROSSREFS

A variant of A217489.

Cf. A038603. - Charles R Greathouse IV, Oct 04 2012

Sequence in context: A132029 A281724 A217489 * A122619 A098779 A276822

Adjacent sequences: A217488 A217489 A217490 * A217492 A217493 A217494

KEYWORD

nonn,base,easy

AUTHOR

M. F. Hasler and Eric Angelini, Oct 04 2012

STATUS

approved