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