A105732 Even numbers k such that A105658(k) != k/2.

16, 24, 26, 32, 40, 42, 44, 50, 54, 56, 58, 64, 84, 86, 96, 100, 102, 104, 106, 108, 110, 124, 128, 132, 136, 140, 144, 146, 148, 152, 156, 162, 164, 168, 170, 172, 174, 180, 182, 184, 186, 188, 192, 198, 204, 206, 212, 214, 224, 226, 228, 234, 236, 240, 242

Offset

1,1

Links

Table of n, a(n) for n=1..55.

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[2, 242, 2], 2f[ # ] != # &]

Crossrefs

Cf. A105658, A105731, A105733, A105769.

Sequence in context: A325480 A205193 A052058 * A339328 A337378 A166319

Adjacent sequences: A105729 A105730 A105731 * A105733 A105734 A105735

Keyword

nonn

Author

Jess E. Boling (tdbpeekitup(AT)yahoo.com) and Robert G. Wilson v, Apr 18 2005

Status

approved