OFFSET
1,2
COMMENTS
Records in A000688. - Artur Jasinski, Mar 14 2008
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1111 (terms 1..216 from Charlie Neder)
Eric Weisstein's World of Mathematics, Abelian Group
FORMULA
MATHEMATICA
a = {}; b = 0; f[n_] := Times @@ PartitionsP /@ Last /@ FactorInteger@n; k = Array[f, 1000000]; Do[If[k[[m]] > b, b = k[[m]]; AppendTo[a, b]], {m, 1, Length[k]}]; a (* using a procedure from Robert G. Wilson v; Artur Jasinski, Mar 14 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from David Wasserman, Feb 06 2002
STATUS
approved