A062674 Composite and every divisor (except 1) contains the digit 6.

16043, 16409, 17621, 26569, 36661, 37637, 39467, 40267, 40669, 41663, 42869, 45761, 46297, 46421, 46909, 52643, 61289, 64721, 64789, 64843, 65209, 69169, 71623, 72361, 75469, 76121, 76987, 91769, 96521, 97661, 97963, 100367, 101369

Offset

1,1

Links

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

Example

26569 has divisors 163 and 26569, all of which contain the digit 6.

Mathematica

Select[Range[2, 102000], !PrimeQ[#]&&And@@(MemberQ[IntegerDigits[#], 6]&/@ Rest[Divisors[#]])&] (* Harvey P. Dale, May 26 2013 *)
fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 101400], !PrimeQ[#] && fQ[#, 6] &] (* Robert G. Wilson v, Jun 11 2014 *)

Crossrefs

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

Sequence in context: A163112 A202420 A031839 * A274680 A286662 A222419

Adjacent sequences: A062671 A062672 A062673 * A062675 A062676 A062677

Keyword

base,easy,nonn

Author

Erich Friedman, Jul 04 2001

Extensions

Offset corrected by Amiram Eldar, Nov 07 2019

Status

approved