OFFSET
1,2
COMMENTS
Odd terms: 1, 45, 405, 1617, 2505, 3645, 5215, 14427, 20745, 24345, 28287, 32475, 40005, 41625, 44145, 46697, 63525, 76185, 78435, 82995, 93645, ..., . - Robert G. Wilson v
MATHEMATICA
a = {1}; Do[i = a[[ -1]] + 1; While[Mod[i, Length[Divisors[a[[ -1]]]]] > 0, i++ ]; AppendTo[a, i], {60}]; a (* Stefan Steinerberger, Aug 28 2008 *)
a[1] = 1; a[n_] := a[n] = Block[{k = a[n - 1] + 1, d = DivisorSigma[0, a[n - 1]]}, While[ Mod[k, d] != 0, k++ ]; k]; Array[a, 58] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 07 2008
EXTENSIONS
More terms from Robert G. Wilson v, Aug 18 2008 and Stefan Steinerberger, Aug 28 2008
STATUS
approved