|
| |
|
|
A103545
|
|
Largest n-digit zeroless prime with nonprime digits.
|
|
0
| |
|
|
89, 991, 9949, 99991, 999961, 9999991, 99999989, 999999491, 9999999881, 99999999689, 999999999989, 9999999999161, 99999999999481, 999999999999989, 9999999999999641, 99999999999999961, 999999999999999989
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
MATHEMATICA
| PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; f[n_] := Block[{pp = PrevPrim[ 10^n]}, While[ Union[ Join[{1, 4, 6, 8, 9}, IntegerDigits[pp]]] != {1, 4, 6, 8, 9}, pp = PrevPrim[pp]]; pp]; Table[ f[n], {n, 2, 18}] (from Robert G. Wilson v Mar 26 2005)
|
|
|
CROSSREFS
| Cf. A103544.
Sequence in context: A197348 A158716 A093289 * A118368 A197399 A183321
Adjacent sequences: A103542 A103543 A103544 * A103546 A103547 A103548
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Ray G. Opao (1260(AT)email.com), Mar 22 2005
|
|
|
EXTENSIONS
| More terms from Jonathan Vos Post (jvospost3(AT)gmail.com), Mar 23 2005
a(7) to a(12) from Jonathan Vos Post (jvospost3(AT)gmail.com), Mar 23 2005
a(13) to a(18) from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 26 2005
|
| |
|
|
