|
| |
|
|
A066598
|
|
4-EPRNs (Equal Product Of Reversible Numbers): numbers which can be expressed as the product of two reversible numbers in four different ways.
|
|
0
| |
|
|
1015560, 1446480, 1854720, 10155600, 14464800, 18547200, 51665040, 59552640, 67944240, 78127560, 82623060, 88560360, 95236960, 99497160, 101556000, 105094080, 108656860, 110937960, 117681480, 118072080, 124942090, 135647680
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| 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 ]] & ]]]
|
|
|
CROSSREFS
| Cf. A066531.
Sequence in context: A133219 A043643 A096931 * A190381 A074667 A206053
Adjacent sequences: A066595 A066596 A066597 * A066599 A066600 A066601
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 08 2002
|
| |
|
|
