|
Search: id:A103544
|
|
|
| A103544 |
|
Least n-digit zeroless prime with nonprime digits. |
|
+0
2
|
|
| 11, 149, 1181, 11119, 111119, 1111169, 11111119, 111111181, 1111111181, 11111111449, 111111111149, 1111111111441, 11111111111411, 111111111111691, 1111111111111181, 11111111111111119, 111111111111111161
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := Block[{np = NextPrim[(10^n - 1)/9 - 1]}, While[ Union[ Join[{1, 4, 6, 8, 9}, IntegerDigits[np]]] != {1, 4, 6, 8, 9}, np = NextPrim[np]]; np]; Table[ f[n], {n, 2, 18}] (Robert G. Wilson v)
|
|
CROSSREFS
|
Sequence in context: A098310 A061613 A093750 this_sequence A038141 A142083 A068646
Adjacent sequences: A103541 A103542 A103543 this_sequence A103545 A103546 A103547
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Ray G. Opao (1260(AT)email.com), Mar 22 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 23 2005
|
|
|
Search completed in 0.002 seconds
|
