|
%I #2 Mar 30 2012 17:31:15
%S 13,17,23,25,37,41,43,47,49,53,55,57,59,61,63,65,67,69,71,75,77,81,83,
%T 85,97,99,103,107,111,117,121,123,125,127,129,131,137,139,143,145,149,
%U 151,153,157,159,161,163,169,173,177,179,181,183,189,191,193,195,197
%N Odd numbers n such that A105658(n) != n.
%F A105658(n) = Product_{i=1..n} i^i / denominator( sum_{j=1..n} j(j+1)/2 / product_{k=0..i-1} j!/k!) ).
%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[1, 200, 2], f[ # ] != # &]
%Y Cf. A105658, A105732, A105733, A105769.
%K nonn
%O 1,1
%A Jess E. Boling (tdbpeekitup(AT)yahoo.com) and _Robert G. Wilson v_, Apr 18 2005
|
