[go: up one dir, main page]

login
A318965
a(n) is the smallest number containing all its n prime factors in its decimal representation.
2
2, 135, 735, 21372, 271362, 4773132, 113678565, 11317129824, 131175822960, 7113719552940, 255360234137190, 12411792985131540
OFFSET
1,1
EXAMPLE
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.
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]
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Giovanni Resta, Sep 06 2018
STATUS
approved