%I A066598
%S A066598 1015560,1446480,1854720,10155600,14464800,18547200,51665040,59552640,
%T A066598 67944240,78127560,82623060,88560360,95236960,99497160,101556000,
%U A066598 105094080,108656860,110937960,117681480,118072080,124942090,135647680
%N A066598 4-EPRNs (Equal Product Of Reversible Numbers): numbers which can be expressed 
               as the product of two reversible numbers in four different ways.
%t A066598 f[n_] := (m = ToExpression[StringReverse[ToString[n]]]; If[n > m, n*m, 
               0]); a = Sort[ Table[ f[n], {n, 0, 10^6}]]; While[ a[[1]] == 0, a 
               = Drop[a, 1]]; a[[ Select[ Range[ Length[a]] - 3, a[[ # ]] == a[[ 
               # + 3 ]] & ]]]
%Y A066598 Cf. A066531.
%Y A066598 Sequence in context: A133219 A043643 A096931 this_sequence A074667 A143133 
               A159816
%Y A066598 Adjacent sequences: A066595 A066596 A066597 this_sequence A066599 A066600 
               A066601
%K A066598 nonn
%O A066598 1,1
%A A066598 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 08 2002