A107784 See Mathematica program.

2, 6, 7, 17, 18, 19, 20, 21, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156

Offset

0,1

Links

Table of n, a(n) for n=0..39.

Mathematica

f[n_] = n*Sum[m/Product[ -Log[n] + (k - 1), {k, 1, m}], {m, 1, Infinity}]
a0 = Table[Floor[n*Abs[Re[f[n]]]/(n - 1)], {n, 2, 250}];
a00 = Mean[a0];
Flatten@Position[a0, _?(#>a00&)]

Crossrefs

Sequence in context: A177353 A049399 A060133 * A210619 A358578 A095036

Adjacent sequences: A107781 A107782 A107783 * A107785 A107786 A107787

Keyword

nonn,fini,full,less

Author

Roger L. Bagula, Jun 14 2005

Status

approved