OFFSET
1,4
COMMENTS
Sequence's terms calculated by "Max".
FORMULA
a(n)=1 if n=1 or is a prime, a(2)=2 if n is the square of a prime. - Robert G. Wilson v
EXAMPLE
6 = 1*1*1*1*1*1*(1+1+1+1+1+1) = 1*2*(1+2) = 2*1*(2+1). So a(6) = 3.
MATHEMATICA
(* first do *) Needs["DiscreteMath`Combinatorica`"] ( then *) t = Table[1, {80}]; Do[k = 1; lmt = PartitionsP@n; p = Partitions@n; While[k < lmt, a = Plus @@ p[[k]]*Times @@ p[[k]]; If[a < 81, t[[a]] += Length@ Permutations@ p[[k]]]; k++ ], {n, 40}]; t (* Robert G. Wilson v, May 03 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 25 2005
STATUS
approved