A091465 Smallest prime with digit product 6^n.

11, 23, 149, 389, 6389, 38669, 89899, 688999, 4998989, 46998899, 288989999, 2688989999, 8889899999, 68898899999, 1488988999999, 3888998899999, 128889898999999, 348889899899999, 1888888999999999, 16888888999999999

Offset

0,1

Links

Table of n, a(n) for n=0..19.

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; a = Table[0, {10}]; p = 2; Do[ q = Log[6, Times @@ IntegerDigits[p]]; If[q != 0 && IntegerQ[q] && a[[q]] == 0, a[[q]] = p; Print[q, " = ", p]]; p = NextPrim[p], {n, 1, 10^9}]; a

Crossrefs

Cf. A089365, A088653, A090840, A089298, A090841.

Sequence in context: A027899 A106388 A171068 * A261352 A018979 A181147

Adjacent sequences: A091462 A091463 A091464 * A091466 A091467 A091468

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 12 2004

Status

approved