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 A066531 #22 Mar 14 2025 20:03:41
%S A066531 2520,4030,5740,7360,7650,9760,10080,12070,13000,14580,14620,16120,
%T A066531 17290,18550,19440,22680,22960,24300,25200,26680,27010,29440,31540,
%U A066531 34780,36270,36400,40300,40320,42750,46060,49300,50920,56050,57400
%N A066531 Numbers which can be expressed as the product of a number and its reversal in at least two different ways.
%C A066531 The digital root of these terms is always 1,4,7 or 9.
%D A066531 S. S. Gupta, EPRNs, Science Today, Feb. 1987, India.
%H A066531 Hans Havermann, <a href="/A066531/b066531.txt">Table of n, a(n) for n = 1..10000</a>
%H A066531 Shyam Sunder Gupta, <a href="http://www.shyamsundergupta.com/eporns.htm">EPRN Numbers</a>
%H A066531 Shyam Sunder Gupta, <a href="https://doi.org/10.1007/978-981-97-2465-9_12">Equal Product of Reversible Numbers (EPRN)</a>, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 12, 353-365.
%e A066531 4030 = 130 * 031 = 310 * 013, 144648 = 861 * 168 = 492 * 294, 185472 = 672 * 276 = 384 * 483, 9949716 = 2583 * 3852 = 1476 * 6741, 16746912 = 2556 * 6552 = 4473 * 3744, etc.
%t A066531 f[n_] := (r = FromDigits[Reverse[IntegerDigits[n]]]; If[n >= r, n*r, 0]);s = Sort[DeleteCases[Table[f[i], {i, 10^4}], 0]]; Union[s[[Select[Range[Length[s]] - 1, s[[#]] == s[[# + 1]] &]]]]
%t A066531 Take[Select[Tally[Table[If[n<IntegerReverse[n],Nothing,n IntegerReverse[ n]],{n,5000}]],#[[2]]>1&][[All,1]]//Union,40] (* _Harvey P. Dale_, Aug 28 2021 *)
%K A066531 base,nonn
%O A066531 1,1
%A A066531 _Robert G. Wilson v_, Jan 06 2002
%E A066531 Edited by _Hans Havermann_, Feb 11 2012
%E A066531 Definition rewritten by _N. J. A. Sloane_, Aug 01 2019