The OEIS is looking to hire part-time people to help edit core sequences, upload scanned documents, process citations, fix broken links, etc. - Neil Sloane, email@example.com
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?
Table of n, a(n) for n=0..76.
a(9) = 3; the partitions are 8+1, 6+3 and 5+4.
sig[n_] := Sort[Last/@FactorInteger[n]]; a[n_] := Length[Select[Range[Floor[n/2]], sig[ # ]!=sig[n-# ]&]]
Sequence in context: A237121 A139821 A248972 * A055256 A029147 A228571
Adjacent sequences: A077560 A077561 A077562 * A077564 A077565 A077566
Amarnath Murthy, Nov 11 2002
Edited by Dean Hickerson, Nov 11 2002