A062667 Every divisor (except 1) contains the digit 3.

3, 13, 23, 31, 37, 39, 43, 53, 73, 83, 93, 103, 113, 131, 137, 139, 163, 173, 193, 223, 233, 239, 263, 283, 293, 307, 309, 311, 313, 317, 331, 337, 339, 347, 349, 353, 359, 367, 373, 379, 383, 389, 393, 397, 403, 431, 433, 439, 443, 463, 503, 523, 563, 593

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

Crossrefs

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

Sequence in context: A277965 A043501 A277590 * A212525 A106099 A273312

Adjacent sequences: A062664 A062665 A062666 * A062668 A062669 A062670

Keyword

base,easy,nonn

Author

Erich Friedman, Jul 04 2001

Extensions

Offset corrected by Amiram Eldar, Nov 07 2019

Status

approved