OFFSET
1,2
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
The sequence of all strict integer partitions of even numbers begins: (), (2), (4), (3,1), (6), (8), (5,1), (4,2), (10), (7,1), (12), (3,2,1), (6,2), (5,3), (14), (9,1), (16).
MATHEMATICA
nn=200;
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], EvenQ[Total[FDfactor[#]/.FDrules]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 28 2018
STATUS
approved