cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A155514 #10 Oct 01 2012 17:52:20
%S A155514 10111001,111001001,1010110001,1011000101,1101001001,1111100101,
%T A155514 10100101001,11000000101,11010011101,11100000101,100111101001,
%U A155514 101010000001,101010111001,110000000101,110011010101,110101011001
%N A155514 Larger of emirps (pairs) with digits 0 and 1 only.
%H A155514 Harvey P. Dale, <a href="/A155514/b155514.txt">Table of n, a(n) for n = 1..1000</a>
%t A155514 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 *)
%Y A155514 A006567, A155512, A155513
%K A155514 nonn,base
%O A155514 1,1
%A A155514 _Lekraj Beedassy_, Jan 23 2009
%E A155514 First missed entry added. _Lekraj Beedassy_, May 30 2009
%E A155514 More terms from _Sean A. Irvine_, Mar 04 2010