A131930 Numbers k such that the decimal representation of k contains at least one prime factor of k.

2, 3, 5, 7, 11, 12, 13, 15, 17, 19, 20, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 35, 36, 37, 39, 41, 42, 43, 45, 47, 50, 52, 53, 55, 59, 61, 62, 63, 65, 67, 70, 71, 72, 73, 75, 77, 79, 82, 83, 85, 89, 92, 93, 95, 97, 101, 102, 103, 105, 107, 109, 110, 112, 113, 115, 120

Offset: 1

Author

Reinhard Zumkeller, Jul 30 2007

Keywords

• nonn
• base

Comments

Numbers k such that A131929(k) > 0; complement of A050695 including 1.

All primes are terms.

Examples

			55 is a term because 5 | 55.
		

Links

• James C. McMahon, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A131929, A050695.

Programs

Mathematica

Select[Range[2,120],ContainsAny[Rest[FromDigits/@Subsets[IntegerDigits[#]]],First/@FactorInteger[#]]&] (* James C. McMahon, Mar 02 2025 *)