login
Interemirp sequence: average of emirp pairs, analogous to interprimes.
1

%I #16 Aug 26 2025 08:47:44

%S 15,24,34,54,72,76,88,102,110,131,153,162,173,189,255,324,342,353,374,

%T 545,705,721,736,741,747,756,765,838,922,939,947,960,969,977,987,1000,

%U 1015,1026,1032,1047,1065,1080,1094,1100,1106,1130,1152,1167,1187

%N Interemirp sequence: average of emirp pairs, analogous to interprimes.

%H Michael De Vlieger, <a href="/A079721/b079721.txt">Table of n, a(n) for n = 1..10000</a>

%H Michael Joseph Halm, <a href="http://untilheaven.tripod.com/id112.htm">Sequences</a>

%F a(n) = (A006567(n) + A006567(n+1))/2 where A006567(n) is the n-th emirp.

%e a(1) = 15 because the first two emirps are 13 and 17 and (13 + 17)/2 = 15

%t Map[Apply[Total, {##}]/2 &, Partition[Select[Prime[Range[5, 196]], And[PrimeQ@ IntegerReverse[#], ! PalindromeQ[#] ] &], 2, 1]] (* _Michael De Vlieger_, Aug 26 2025 *)

%Y Cf. A006567, A024675.

%K nonn,base

%O 1,1

%A _Michael Joseph Halm_, Feb 17 2003

%E a(4) corrected by _Sean A. Irvine_, Aug 25 2025