OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 08 2002
STATUS
approved