%I #25 Dec 01 2018 09:39:17
%S 0,0,1,1,2,5,5,2,8,8,11,11,12,51,15,21,18,81,21,15,22,55,25,25,28,85,
%T 51,12,52,52,55,22,58,82,81,18,82,58,85,28,88,88,101,101,102,501,105,
%U 201,108,801,111,111,112,511,115,211,118,811,121,151,122,551
%N List of pairs of numbers with mirror symmetry (calculator-style numerals).
%C 2 and 5 are taken as mirror images (as on calculator displays).
%e The sequence begins:
%e 0, 0;
%e 1, 1;
%e 2, 5;
%e 5, 2;
%e 8, 8;
%e 11, 11;
%e 12, 51;
%e 15, 21;
%e 18, 81;
%e 21, 15;
%e 22, 55;
%e 25, 25;
%e 28, 85;
%e ...
%e 81 has its reflection as 18 in a mirror.
%e 125 has its reflection as 251 in a mirror.
%t {0, 0}~Join~Array[If[Mod[#, 10] == 0, Nothing, If[IntegerLength[#1] == Length[#2], {#1, FromDigits@ #2}, Nothing] & @@ {#, Reverse@ IntegerDigits@ # /. {2 -> 5, 3 -> Nothing, 4 -> Nothing, 5 -> 2, 6 -> Nothing, 7 -> Nothing, 9 -> Nothing}}] &, 123] // Flatten (* _Michael De Vlieger_, Nov 05 2018 *)
%Y Cf. A018846, A053701, A080228.
%K nonn,base,tabf
%O 0,5
%A _Kritsada Moomuang_, Nov 03 2018