A020470 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A020470

Primes that contain digits 7 and 8 only.

7, 787, 877, 887, 7877, 8887, 78787, 78877, 78887, 87877, 87887, 777787, 777877, 778777, 787777, 878777, 888887, 7778777, 7788787, 7877777, 7878877, 7878887, 7888877, 8787887, 8788777, 8877787, 8887777, 77778887, 77787887, 77877887

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

MATHEMATICA

Flatten[Table[Select[FromDigits/@Tuples[{7, 8}, n], PrimeQ], {n, 8}]] (* Vincenzo Librandi, Jul 28 2012 *)

PROG

(Magma) [p: p in PrimesUpTo(77877887) | Set(Intseq(p)) subset [7, 8]]; // Vincenzo Librandi, Jul 28 2012

CROSSREFS

Sequence in context: A137050 A114911 A162089 * A182282 A171245 A014013

Adjacent sequences: A020467 A020468 A020469 * A020471 A020472 A020473

KEYWORD

nonn,base

AUTHOR

David W. Wilson

STATUS

approved