OFFSET
0,1
COMMENTS
Complement of A248195.
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1500
EXAMPLE
MATHEMATICA
$MaxExtraPrecision = Infinity;
z = 300; p[k_] := p[k] = Sum[1/Binomial[2 h + 1, h], {h, 0, k}] ;
r = Sum[1/Binomial[2 h + 1, h], {h, 0, Infinity}] (* A248179 *)
r = 2/27 (9 + 2 Sqrt[3] \[Pi]); N[r, 20]
N[Table[r - p[n], {n, 0, z/10}]]
f[n_] := f[n] = Select[Range[z], r - p[#] < 1/2^n &, 1]
u = Flatten[Table[f[n], {n, 0, z}]] (* A248180 *)
Flatten[Position[Differences[u], 0]] (* A248195 *)
Flatten[Position[Differences[u], 1]] (* A248196 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 03 2014
STATUS
approved