|
|
|
|
2, 5, 9, 13, 16, 20, 23, 27, 30, 34, 37, 41, 44, 48, 52, 55, 59, 62, 66, 69, 73, 76, 80, 84, 87, 91, 94, 98, 101, 105, 108, 112, 115, 119, 123, 126, 130, 133, 137, 140, 144, 147, 151, 155, 158, 162, 165, 169, 172, 176, 179, 183, 186, 190, 194, 197, 201, 204
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
z = 100; p[k_] := p[k] = Product[(k^2 + h)/(k^2 - h), {h, 1, k}] (* Finch p. 14 *)
N[Table[p[n] - E, {n, 2, z}]]
f[n_] := f[n] = Select[1 + Range[z], p[#] - E < 1/n &, 1];
u = Flatten[Table[f[n], {n, 1, z}]] ; (* A247985 *)
v = Differences[u];
Flatten[Position[v, 2]]; (* A247986 *)
Flatten[Position[v, 3]]; (* A247987 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|