OFFSET
1,1
COMMENTS
Let f(n) = A050376(n) be the n-th Fermi-Dirac prime. The FDH number of a strict integer partition (y_1,...,y_k) is f(y_1)*...*f(y_k).
EXAMPLE
210 is the FDH number of (5,4,2,1), and the subsets {1,5}, and {2,4} have the same average, so 210 belongs to the data.
MATHEMATICA
nn=1000;
FDfactor[n_]:=If[n==1, {}, Sort[Join@@Cases[FactorInteger[n], {p_, k_}:>Power[p, Cases[Position[IntegerDigits[k, 2]//Reverse, 1], {m_}->2^(m-1)]]]]];
FDprimeList=Array[FDfactor, nn, 1, Union]; FDrules=MapIndexed[(#1->#2[[1]])&, FDprimeList];
Select[Range[nn], !UnsameQ@@Mean/@Union[Subsets[FDfactor[#]/.FDrules]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 30 2018
STATUS
approved