OFFSET
1,2
COMMENTS
Complement of A248419.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..100
EXAMPLE
MATHEMATICA
z = 550; p[k_] := p[k] = k*Tan[Pi/k]; N[Table[p[n] - Pi, {n, 3, z/10}]]
f[n_] := f[n] = Select[2 + Range[z], p[#] - Pi < 1/n &, 1];
u = Flatten[Table[f[n], {n, 3, z}]] (* A248418 *)
Differences[u]
v = Flatten[Position[Differences[u], 0]] (* A248419 *)
w = Flatten[Position[Differences[u], 1]] (* A248420 *)
g = Table[Floor[1/(p[n] - Pi)], {n, 3, z}] (* A248421 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 07 2014
STATUS
approved