A321310 List of pairs of numbers with mirror symmetry (calculator-style numerals).
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, 51, 12, 52, 52, 55, 22, 58, 82, 81, 18, 82, 58, 85, 28, 88, 88, 101, 101, 102, 501, 105, 201, 108, 801, 111, 111, 112, 511, 115, 211, 118, 811, 121, 151, 122, 551
Offset: 0
Examples
The sequence begins: 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; ... 81 has its reflection as 18 in a mirror. 125 has its reflection as 251 in a mirror.
Programs
-
Mathematica
{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 *)
Comments