Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A070246
a(n) = lcm(n, R(n)) / gcd(n, R(n)), where R(n) (A004086) is the digit reversal of n.
0
1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 1, 28, 403, 574, 85, 976, 1207, 18, 1729, 10, 28, 1, 736, 28, 1300, 403, 24, 574, 2668, 10, 403, 736, 1, 1462, 1855, 28, 2701, 3154, 403, 10, 574, 28, 1462, 1, 30, 736, 3478, 28, 4606, 10, 85, 1300, 1855, 30, 1, 3640, 475, 4930, 5605
OFFSET
1,10
COMMENTS
a(1) = 1, a(18) = 18. Are there more terms for which a(k) = k?
EXAMPLE
a(12) = lcm(12,21)/gcd(12,21) = 84/3 = 28.
MATHEMATICA
r[n_] := FromDigits[ Reverse[ IntegerDigits[n]]]; Table[ LCM[n, r[n]] / GCD[n, r[n]], {n, 1, 65}]
CROSSREFS
Sequence in context: A223450 A221311 A361949 * A085044 A215268 A059022
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 09 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 10 2002
STATUS
approved