[go: up one dir, main page]

login
A321310
List of pairs of numbers with mirror symmetry (calculator-style numerals).
0
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,5
COMMENTS
2 and 5 are taken as mirror images (as on calculator displays).
EXAMPLE
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.
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 *)
CROSSREFS
KEYWORD
nonn,base,tabf
AUTHOR
Kritsada Moomuang, Nov 03 2018
STATUS
approved