A107697 Primes with digital product = 12.

43, 223, 431, 1223, 1621, 2161, 2213, 3221, 6121, 6211, 11261, 11621, 12161, 12611, 13411, 21611, 26111, 41113, 41131, 61121, 61211, 111143, 111341, 111431, 112213, 114113, 114311, 121123, 121321, 122131, 123121, 131221, 141131, 141311, 143111

Offset: 1

Author

Zak Seidov and Robert G. Wilson v, May 20 2005

Keywords

• base
• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..86

Crossrefs

Cf. A004022, A107612, A107689, A107690, A107691, A107692, A107693, A107694, A107695, A107696, A107698.

Programs

Magma

[p: p in PrimesUpTo(1000000) | &*Intseq(p) eq 12]; // Vincenzo Librandi, Jul 27 2016

Mathematica

Union[ Flatten[ Table[ Select[ Sort[ FromDigits /@ Join[ Permutations[ Flatten[{2, 6, Table[1, {n - 1}]}]], Permutations[ Flatten[{3, 4, Table[1, {n - 1}]}]], Permutations[ Flatten[{2, 2, 3, Table[1, {n - 2}]}] ]]], PrimeQ[ # ] & ], {n, 0, 5}]]]
Select[Prime[Range[75000]], Times@@IntegerDigits[#] == 12 &] (* Vincenzo Librandi, Jul 27 2016 *)