%I #13 May 24 2021 15:34:26
%S 1091,1301,1913,1933,3067,3433,7481,7523,9103,10247,10429,10711,11071,
%T 11353,11701,11731,13297,13457,13933,14447,14843,14923,15263,15803,
%U 16073,16193,16451,18013,18041,18307,32009,32261,34471,35027,35129
%N Honaker emirps: terms in A033548 that are emirps.
%C Intersection of A033548 and A006567. - _Lekraj Beedassy_, Jun 06 2009
%C Palindromic primes are not included. - _Harvey P. Dale_, Jun 13 2011
%t nn=3800;emrpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn]; ridn!=idn && PrimeQ[FromDigits[ridn]]]; Select[Transpose[ Select[ Thread[ {Prime[Range[nn]],Range[nn]}], Total[IntegerDigits[First[#]]] == Total[IntegerDigits[Last[#]]]&]][[1]],emrpQ] (* _Harvey P. Dale_, Jun 13 2011 *)
%Y Cf. A006567, A033548.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Jun 02 2009
%E Sequence corrected and extended by _Lekraj Beedassy_, Jun 06 2009
|