login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A079652 Prime numbers using only the digits 0, 3, 6, 8 and 9. 5
3, 83, 89, 383, 389, 683, 809, 839, 863, 883, 983, 3083, 3089, 3389, 3803, 3833, 3863, 3889, 3989, 6089, 6389, 6689, 6803, 6833, 6863, 6869, 6883, 6899, 6983, 8009, 8039, 8069, 8089, 8093, 8363, 8369, 8389, 8609, 8663, 8669, 8689, 8693, 8699, 8803, 8839 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Intersection of A000040 and A072960. - K. D. Bajpai, Sep 01 2014

LINKS

K. D. Bajpai, Table of n, a(n) for n = 1..11740

MAPLE

N:= 4: # to get all terms with up to N digits

Digs:= {0, 3, 6, 8, 9}:

A:= NULL:

for d from 1 to N do

  C:= combinat[cartprod]([Digs minus {0}, Digs $(d-1)]);

  while not C[finished] do

    L:= C[nextvalue]();

    x:= add(L[i]*10^(d-i), i=1..d);

    if isprime(x) then A:= A, x fi

  od

od:

A; # Robert Israel, Aug 31 2014

MATHEMATICA

Select[ Range[8850], PrimeQ[ # ] && Union[ Join[ IntegerDigits[ # ], {0, 3, 6, 8, 9}]] == {0, 3, 6, 8, 9} &]

Select[Prime[Range[5000]], Intersection[IntegerDigits[#], {1, 2, 4, 5, 7}] == {} &] (* K. D. Bajpai, Sep 01 2014 *)

CROSSREFS

Cf. A072960, A028374.

Cf. A034470.

Sequence in context: A067202 A203494 A158995 * A139897 A085318 A101717

Adjacent sequences:  A079649 A079650 A079651 * A079653 A079654 A079655

KEYWORD

base,nonn

AUTHOR

Shyam Sunder Gupta, Jan 23 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified June 25 19:53 EDT 2017. Contains 288729 sequences.