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 A191103 #11 Sep 09 2019 12:49:52 %S A191103 3,6,7,10,14,17,21,24,28,31,35,38,39,42,45,46,49,53,56,60,63,67,70,74, %T A191103 77,78,81,85,88,92,95,99,102,106,109,110,113,116,117,120,124,127,131, %U A191103 134,138,141,145,148,149,152,156,159,163,166,170,173,177,180,181,184,187,188,191,195,198,202,205,209,212,216,219,220 %N A191103 Positions of 0 in A190893. %C A191103 See A190893. %t A191103 f[n_] := Floor[3 n*E] - 3*Floor[n*E]; %t A191103 t = Table[f[n], {n, 1, 220}] (* A190893 *) %t A191103 Flatten[Position[t, 0]] (* A191103 *) %t A191103 Flatten[Position[t, 1]] (* A191104 *) %t A191103 Flatten[Position[t, 1]] (* A191105 *) %Y A191103 Cf. A190893, A191104, A191105. %K A191103 nonn %O A191103 1,1 %A A191103 _Clark Kimberling_, May 26 2011