|
| |
|
|
A034470
|
|
Prime numbers using only the curved digits 0, 2, 3, 5, 6, 8 and 9.
|
|
1
| |
|
|
2, 3, 5, 23, 29, 53, 59, 83, 89, 223, 229, 233, 239, 263, 269, 283, 293, 353, 359, 383, 389, 503, 509, 523, 563, 569, 593, 599, 653, 659, 683, 809, 823, 829, 839, 853, 859, 863, 883, 929, 953, 983, 2003, 2029, 2039, 2053, 2063, 2069, 2083, 2089, 2099, 2203
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Select[ Range[2222], PrimeQ[ # ] && Union[ Join[ IntegerDigits[ # ], {0, 2, 3, 5, 6, 8, 9}]] == {0, 2, 3, 5, 6, 8, 9} &]
|
|
|
CROSSREFS
| Cf. A028374, A072960, A079652.
Sequence in context: A042141 A122004 A023231 * A138170 A105885 A104736
Adjacent sequences: A034467 A034468 A034469 * A034471 A034472 A034473
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 24 2003
|
| |
|
|
