|
| |
|
|
A107689
|
|
Primes with digital product = 3.
|
|
13
| |
|
|
3, 13, 31, 113, 131, 311, 11113, 11131, 11311, 113111, 131111, 311111, 11111131, 11111311, 11113111, 11131111, 111111113, 111111131, 111113111, 131111111, 11111111113, 11111111131, 11113111111, 11131111111, 31111111111
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Flatten[ Table[ Select[ Sort[ FromDigits /@ Permutations[ Flatten[{3, Table[1, {n}]}]]], PrimeQ[ # ] &], {n, 0, 12}]]
|
|
|
CROSSREFS
| Cf. A004022, A107612, A107690, A107691, A107692, A107693, A107694, A107695, A107696, A107697, A107698.
Sequence in context: A146191 A058264 A034050 * A154834 A159047 A128067
Adjacent sequences: A107686 A107687 A107688 * A107690 A107691 A107692
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2005
|
| |
|
|
