A069571 Numbers n in which the k-th digit (counted from the right) is nonzero and is either a divisor of k (but not 1 in case k has a single-digit prime divisor) or a multiple of k, for all 1 <= k <= number of digits of n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 21, 22, 23, 24, 25, 26, 27, 28, 29, 41, 42, 43, 44, 45, 46, 47, 48, 49, 61, 62, 63, 64, 65, 66, 67, 68, 69, 81, 82, 83, 84, 85, 86, 87, 88, 89, 321, 322, 323, 324, 325, 326, 327, 328, 329, 341, 342, 343, 344, 345, 346, 347, 348, 349, 361, 362

Offset: 1

Author

Amarnath Murthy, Mar 24 2002

Keywords

• nonn
• base

Comments

This is the subsequence of terms of A069570 with no digit 1 elsewhere than (possibly) in positions k with no prime divisor < 10, i.e., k = 1, 11, 13, 17, 19, ..., 11*11, 127, 131, 137, 139, 11*13, .... - M. F. Hasler, Sep 27 2016

Examples

			54647 is a member but 14647 and 44647 are not members.
13 is a member of A069570 because both 1 and 3 are nonzero, further, 3 is divisible by n = 1 and 1 divides n = 2. 13 is not a member of this sequence because it has a single-digit multiple 3 > 1.
Numbers with "1" in place n = 1 may be in the sequence since 1 divides itself, and 1 does not exceed 1.
21 is a member of this sequence because the digits are nonzero, 1 divides n = 1 and 2 divides n = 2.
		

Crossrefs

Cf. A069570.

Programs

Mathematica

Select[Range@ 400, Times @@ Map[Boole, MapIndexed[If[Or[#1 == 0, And[First@ #2 > 1, #1 == 1]], False, Total@ Boole@ {First@ Divisible[#2, #1], First@ Divisible[#1, #2]} > 0] &, Reverse@ IntegerDigits@ #]] > 0 &] (* Michael De Vlieger, Sep 28 2016 *)

Extensions

Definition clarified by M. F. Hasler, Sep 27 2016

Edited by N. J. A. Sloane, Oct 02 2016