A062673 Every divisor (except 1) contains the digit 6.

61, 67, 163, 167, 263, 269, 367, 461, 463, 467, 563, 569, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 761, 769, 863, 967, 1061, 1063, 1069, 1163, 1361, 1367, 1567, 1601, 1607, 1609, 1613, 1619, 1621, 1627, 1637, 1657

Offset: 1

Author

Erich Friedman, Jul 04 2001

Keywords

• base
• easy
• nonn

Examples

			26569 has divisors 163 and 26569, each of which contains the digit 6.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A062653, A062664, A062667, A062668, A062669, A062670, A062671, A062672, A062674, A062675, A062676, A062677, A062678, A062679, A062680.

Programs

Magma

[k:k in [2..1700]| forall{d:d in Set(Divisors(k)) diff {1}| 6 in Intseq(d)}];// Marius A. Burtea, Nov 07 2019

Mathematica

fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 1660], fQ[#, 6] &] (* Robert G. Wilson v, Jun 11 2014 *)
Select[Range[2,2000],AllTrue[Rest[Divisors[#]],DigitCount[#,10,6]>0&]&] (* Harvey P. Dale, Jul 14 2025 *)

Extensions

Offset corrected by Amiram Eldar, Nov 07 2019