OFFSET
1,2
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..250
EXAMPLE
a(3) = 111 hence a(4) = 337, as 3*37 = 111 and 3 < 37.
MATHEMATICA
f[n_Integer] := (d = Divisors[n]; l = Length[d]; If[ EvenQ[l], ToExpression[ ToString[ d[[l/2]] ] <> ToString[ d[[l/2 + 1]] ]], ToExpression[ ToString[d[[l/2 + .5]] ] <> ToString[ d[[l/2 + .5]] ]]] ); NestList[f, 1, 25]
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Amarnath Murthy, Jun 16 2001
EXTENSIONS
More terms from Robert G. Wilson v, Aug 08 2001
STATUS
approved