This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A065720 Primes whose binary representation is also the decimal representation of a prime. 85
 3, 5, 23, 47, 89, 101, 149, 157, 163, 173, 179, 199, 229, 313, 331, 367, 379, 383, 443, 457, 523, 587, 631, 643, 647, 653, 659, 709, 883, 947, 997, 1009, 1091, 1097, 1163, 1259, 1277, 1283, 1289, 1321, 1483, 1601, 1669, 1693, 1709, 1753, 1877, 2063, 2069, 2099 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS In general rebase notation (Marc LeBrun): p(n) = (2) [p] (10). Also: Primes in A036952. - M. F. Hasler, Dec 11 2012 See A089971 for the binary representation of these terms. - M. F. Hasler, Jan 05 2014 LINKS Harry J. Smith and K. D. Bajpai, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harry J. Smith) Carlos Rivera, Puzzle 280 FORMULA Equals A036952 intersect A000040. - M. F. Hasler, Dec 11 2012 EXAMPLE E.g., 1009{10} = 1111110001{2} is prime, and 1111110001{10} is also prime. 89 is in the sequence because it is a prime. Binary representation of 89 = 1011001, which is also a prime. MAPLE select(t -> isprime(t) and isprime(convert(t, binary)), [seq(2*i+1, i=1..1000)]); # Robert Israel, Jul 08 2014 MATHEMATICA Select[ Range[1900], PrimeQ[ # ] && PrimeQ[ FromDigits[ IntegerDigits[ #, 2]]] & ] Select[ Prime@ Range@ 330, PrimeQ[ FromDigits[ IntegerDigits[#, 2]]] &] (* Robert G. Wilson v, Oct 09 2014 *) PROG (PARI) {(baseE(x, b)= local(d, e=0, f=1); while (x>0, d=x-b*(x\b); x\=b; e+=d*f; f*=10); e);  n=0; for (m=1, 10^9, p=prime(m); b=baseE(p, 2); if (isprime(b), write("b065720.txt", n++, " ", p); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 27 2009 CROSSREFS Cf. A065721, A065722, A065723, A065724, A065725, A065726, A065727, A065361. Cf. A123266, A256621, A256622. Sequence in context: A214876 A280273 A036952 * A148554 A120937 A075307 Adjacent sequences:  A065717 A065718 A065719 * A065721 A065722 A065723 KEYWORD nonn,base AUTHOR Patrick De Geest, Nov 15 2001 EXTENSIONS a(48)-a(50) from K. D. Bajpai, Jul 04 2014 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 22 07:29 EDT 2019. Contains 328315 sequences. (Running on oeis4.)