OFFSET
0,7
COMMENTS
The 'prime signature' of n is the sorted list of exponents in the prime factorization of n.
Does lim n->infinity a(n)/n exist? If not, what are the limsup and liminf of a(n)/n?
EXAMPLE
a(9) = 3; the partitions are 8+1, 6+3 and 5+4.
MATHEMATICA
sig[n_] := Sort[Last/@FactorInteger[n]]; a[n_] := Length[Select[Range[Floor[n/2]], sig[ # ]!=sig[n-# ]&]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 11 2002
EXTENSIONS
Edited by Dean Hickerson, Nov 11 2002
STATUS
approved