1,2

a(6) = 11158922880 and a(8) = 1046458990080.

a(1) = 1 = 1*1; a(2) = 2520 = 120*21 = 210*12; a(3) = 635040 = 1440*441 = 2520*252 = 4410*144; a(4) = 1015560 = 1560*651 = 2730*372 = 3720*273 = 6510*156; a(6) = 11158922880 = 132480*84231 = 231840*48132 = 275040*40572 = 405720*27504 = 481320*23184 = 842310*13248; a(8) = 1236480*846321 = 2163840*483612 = 2329440*449232 = 2567040*407652 = 4076520*256704 = 4492320*232944 = 4836120*216384 = 8463210*123648.

f[n_] := (m = ToExpression[StringReverse[ToString[n]]]; If[n >= m, n*m, 0]); a = Sort[Table[f[n], {n, 0, 10^7}]]; While[a[[1]] == 0, a = Drop[a, 1]]; Do[k = 1; While[ a[[k]] != a[[k + n - 1]], k++ ]; Print[ a[[k]]], {n, 1, 4} ]

Cf. A066531.

Adjacent sequences: A066596 A066597 A066598 this_sequence A066600 A066601 A066602

Sequence in context: A066531 A064592 A109480 this_sequence A107531 A123485 A045942

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 08 2002