OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
799 has divisors 17, 47 and 799, all of which contain the digit 7.
MATHEMATICA
fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 760], fQ[#, 7] &] (* Robert G. Wilson v, Jun 11 2014 *)
PROG
(Magma) [k:k in [2..800]| forall{d:d in Set(Divisors(k)) diff {1}| 7 in Intseq(d)}]; // Marius A. Burtea, Nov 07 2019
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Erich Friedman, Jul 04 2001
STATUS
approved