OFFSET
1,2
COMMENTS
This sequence is a permutation of the positive integers.
MAPLE
From R. J. Mathar, Aug 31 2010: (Start)
A066843 := proc(n) option remember; if n <= 2 then n; else procname(n-1) * numtheory[tau](n) ; end if; end proc:
A175334 := proc(n) option remember ; dvs := sort(convert(numtheory[divisors](A066843(n)), list)) ; for d in dvs do wrks := true; for i from 1 to n-1 do if procname(i) = d then wrks := false; break; end if; end do: if wrks then return d; end if; end do: end proc:
seq(A175334(n), n=1..90) ; (End)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 14 2010
EXTENSIONS
More terms from R. J. Mathar, Aug 31 2010
STATUS
approved