OFFSET
1,3
COMMENTS
The signature function takes a partition to the partition consisting of its repetition factors.
LINKS
Robert Price, Table of n, a(n) for n = 1..9295 (first 25 rows).
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
EXAMPLE
Partition 5 in A&S order is [1,2]. Applying the signature function to this repeatedly gives [1,2] -> [1^2] -> [2] -> [1], so a(5)=3.
MATHEMATICA
sig[x_] := Length@NestWhileList[Last@Transpose@Tally@# &, x, # != {1} &, 1] - 1;
Table[sig /@ Sort[Reverse /@ IntegerPartitions[n]], {n, 9}] // Flatten (* Robert Price, Jun 12 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Franklin T. Adams-Watters, Jan 20 2006
STATUS
approved