This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A375053 #4 Oct 02 2024 14:28:48 %S A375053 1,3,7,11,16,20,24,28,33,37,41,45,50,54,58,62,67,71,75,79,84,88,92,96, %T A375053 101,105,109,113,118,122,126,131,135,139,143,148,152,156,160,165,169, %U A375053 173,177,182,186,190,194,199,203,207,212,216,220,224,229,233,237 %N A375053 a(n) = least k such that (n Pi)^(2 k + 1)/(2 k + 1)! < 1. %C A375053 The numbers (n Pi)^(2 k + 1)/(2 k + 1)! are the coefficients in the Maclaurin series for sin x when x = n*Pi. %C A375053 (n Pi)^(2 k + 1)/(2 k + 1)! < 1 for every k >= a(n). %t A375053 z = 300; r = Pi; %t A375053 a[n_] := Select[Range[z], (n r)^(2 # + 1)/(2 # + 1)! < 1 &, 1] %t A375053 Flatten[Table[a[n], {n, 0, 100}]] %Y A375053 Cf. A374987, A376456, A376457, A375054, A375057. %K A375053 nonn %O A375053 0,2 %A A375053 _Clark Kimberling_, Oct 01 2024