OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
93 has divisors 1, 3, 31 and 93, all of which contain the digit 3.
MATHEMATICA
fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 600], fQ[#, 3] &] (* Robert G. Wilson v, Jun 11 2014 *)
Select[Range[2, 600], AllTrue[Flatten[DigitCount[#, 10, 3]&/@Rest[Divisors[#]]], #>0&]&] (* Harvey P. Dale, Oct 04 2024 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Erich Friedman, Jul 04 2001
EXTENSIONS
Offset corrected by Amiram Eldar, Nov 07 2019
STATUS
approved