%I #9 Jan 18 2025 21:56:38
%S 16,24,26,32,40,42,44,50,54,56,58,64,84,86,96,100,102,104,106,108,110,
%T 124,128,132,136,140,144,146,148,152,156,162,164,168,170,172,174,180,
%U 182,184,186,188,192,198,204,206,212,214,224,226,228,234,236,240,242
%N Even numbers k such that A105658(k) != k/2.
%t f[n_] := f[n] = Product[i^i, {i, n}]/Denominator[Sum[j(j + 1)/2/(Product[j!/k!, {k, 0, j - 1}]), {j, n}]]; Select[ Range[2, 242, 2], 2f[ # ] != # &]
%Y Cf. A105658, A105731, A105733, A105769.
%K nonn
%O 1,1
%A Jess E. Boling (tdbpeekitup(AT)yahoo.com) and _Robert G. Wilson v_, Apr 18 2005