A318965 a(n) is the smallest number containing all its n prime factors in its decimal representation.
2, 135, 735, 21372, 271362, 4773132, 113678565, 11317129824, 131175822960, 7113719552940, 255360234137190, 12411792985131540
Offset: 1
Examples
a(2) = 135 = 3^3 * 5, a(3) = 735 = 3 * 5 * 7^2, a(4) = 21372 = 2^2 * 3 * 13 * 137, a(5) = 271362 = 2 * 3 * 7^2 * 13 * 71, a(6) = 4773132 = 2^2 * 3^2 * 7 * 13 * 31 * 47. a(7) = 113678565 = 3 * 5 * 7 * 11 * 13 * 67 * 113.
Programs
-
Mathematica
a[n_] := Block[{k=1, s, f}, While[True, k++; If[Length[f = FactorInteger[k]] == n, s = ToString@k; If[AllTrue[First /@ f, StringPosition[s, ToString@ #] != {} &], Break[]]]]; k]; Array[a, 5]