A155514 Larger of emirps (pairs) with digits 0 and 1 only.

10111001, 111001001, 1010110001, 1011000101, 1101001001, 1111100101, 10100101001, 11000000101, 11010011101, 11100000101, 100111101001, 101010000001, 101010111001, 110000000101, 110011010101, 110101011001

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

emrpQ[n_]:=Module[{idn=IntegerDigits[n], ridn}, ridn=Reverse[idn]; idn!=ridn &&PrimeQ[n]&&PrimeQ[FromDigits[ridn]]]; lrgr[n_]:=If[n<FromDigits[ Reverse[ IntegerDigits[n]]], 0, n]; Select[lrgr/@Union[ Select[ Union[ Flatten[ Table[FromDigits/@Tuples[{1, 0}, n], {n, 12}]]], emrpQ]], #!=0&] (* Harvey P. Dale, Oct 01 2012 *)

Crossrefs

A006567, A155512, A155513

Sequence in context: A186173 A043644 A262556 * A133595 A108810 A173095

Adjacent sequences: A155511 A155512 A155513 * A155515 A155516 A155517

Keyword

nonn,base

Author

Lekraj Beedassy, Jan 23 2009

Extensions

First missed entry added. Lekraj Beedassy, May 30 2009

More terms from Sean A. Irvine, Mar 04 2010

Status

approved