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,1

Links

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

Example

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

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A316933 A255225 A141167 * A284291 A045712 A090154

Adjacent sequences: A062670 A062671 A062672 * A062674 A062675 A062676

Keyword

base,easy,nonn

Author

Erich Friedman, Jul 04 2001

Extensions

Offset corrected by Amiram Eldar, Nov 07 2019

Status

approved