OFFSET
1,1
FORMULA
A105658(n) = Product_{i=1..n} i^i / denominator( sum_{j=1..n} j(j+1)/2 / product_{k=0..i-1} j!/k!) ).
MATHEMATICA
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[125], f[2# - 1] != 2# - 1 && f[2# ] != # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jess E. Boling (tdbpeekitup(AT)yahoo.com) and Robert G. Wilson v, Apr 18 2005
STATUS
approved