This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A050810 #8 Dec 31 2015 03:12:51
%S A050810 0,1,106,37,53,103,42,23,29,19,0,56,21,38,18,35,17,16,14,26,0,12,96,
%T A050810 43,913,2081,812,703,754,24,0,165,726,64,603,15,592,27,13,479,0,261,
%U A050810 541,277,48,1129,437,649,524,538,0,291,406,1359,533,93,377,466,1052,279,0
%N A050810 From sequence A050782, the n's corresponding to the first occurrence of m (or 0 if not defined).
%t A050810 nmax = 60; Clear[f]; f[max_] := f[max] = (r = Reap[For[n = 1, n <= max, n++, k = 1; If[IntegerQ[n/10], m = 0, While[k <= max && Reverse[id = IntegerDigits[k*n]] != id, k++]; m = k]; Sow[{n, m}]]][[2, 1]]; a[0] = 0; a[n_] := (s = Select[r, #[[2]] == n &, 1]; If[s == {}, 0, s[[1, 1]]]); Table[a[n], {n, 0, nmax}]); f[nmax]; f[max = 2 nmax]; While[Print["max = ", max]; f[max] != f[max/2], max = 2 max]; A050810 = f[max] (* _Jean-François Alcover_, Dec 31 2015 *)
%Y A050810 Cf. A002113, A050782.
%K A050810 nonn,base,nice
%O A050810 0,3
%A A050810 _Patrick De Geest_, Oct 15 1999