|
|
A155512
|
|
Emirps with digits 0 and 1 only.
|
|
4
|
|
|
10011101, 10111001, 100100111, 111001001, 1000110101, 1001001011, 1010001101, 1010011111, 1010110001, 1011000101, 1101001001, 1111100101, 10010100101, 10100000011, 10100000111, 10100101001, 10111001011, 11000000101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
emQ[ls_List]:=Module[{rev=Reverse[ls]}, Length[ls]==Length[rev]&& ls!=rev && PrimeQ[FromDigits[ls]]&&PrimeQ[FromDigits[rev]]]; Union[Flatten[ Table[FromDigits/@Select[Tuples[{1, 0}, n], emQ], {n, 11}]]] (* Harvey P. Dale, Nov 30 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|