A217286 Larger of pairs of emirps (A006567) whose difference with the (smaller) reversal is a triangular number (A000217).
73, 1811, 7817, 7927, 11701, 12611, 14431, 14831, 15101, 15241, 15541, 15601, 16111, 16451, 16651, 17021, 18671, 18731, 19181, 19541, 19681, 19841, 32213, 32713, 33223, 33623, 33923, 35803, 36013, 36353, 36913, 37123, 37363, 37463, 37963, 39383, 39983, 71707
Offset: 1
Examples
a(1) = 73 because 73 - 37 = 36 = 8th triangular number. a(2) = 1811 because R(1811) = A004086(1811) = 1181, and 1811 - 1181 = 630 = 35th triangular number. a(3) = 7817 because 7817 - 7187 = 630 = 35th triangular number. a(4) = 7927 because 7927 - 7297 = 630 = 35*36/2.
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..100
Programs
-
Mathematica
emrp[p_]:=Module[{rev=IntegerReverse[p]},If[rev!=p&&PrimeQ[rev],Max[ rev,p],Nothing]]; Select[Union[emrp/@Prime[Range[7500]]],OddQ[Sqrt[8(#-IntegerReverse[ #])+1]]&] (* Harvey P. Dale, Jan 30 2023 *)
Extensions
More terms from Alois P. Heinz, Oct 03 2012
Comments