Search: id:A066590
Results 1-1 of 1 results found.

%I A066590
%S A066590 635040,1015560,1446480,1854720,4356000,6350400,10155600,14464800,
%T A066590 18547200,43560000,51665040,59552640,63504000,67944240,76839840,
%U A066590 78127560,82623060,88560360,95236960,99497160,101556000,105094080
%N A066590 3-EPRNs (Equal Product Of Reversible Numbers): numbers which can be expressed 
               as the product of two reversible numbers in three different ways.
%e A066590 63540 = 1440 * 411 = 2520 * 252 = 4410 * 144.
%t A066590 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]] - 2, a[[ # ]] == a[[ 
               # + 2 ]] & ]]]
%Y A066590 Cf. A066531.
%Y A066590 Sequence in context: A053877 A141815 A048924 this_sequence A113951 A089220 
               A052243
%Y A066590 Adjacent sequences: A066587 A066588 A066589 this_sequence A066591 A066592 
               A066593
%K A066590 nonn
%O A066590 1,1
%A A066590 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 08 2002

Search completed in 0.001 seconds