A021015 Duplicate of A010680.
0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0, 9, 0
Offset: 0
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.
&cat [[0,3]^^50]; // Bruno Berselli, Dec 29 2015
3Mod[Range[0, 99], 2] (* Alonso del Arte, Mar 25 2020 *)
makelist(if evenp(n) then 0 else 3, n, 0, 30); /* Martin Ettl, Nov 09 2012 */
a(n)=n%2*3 \\ Charles R Greathouse IV, Nov 20 2011
(0 to 99).map( % 2 * 3) // _Alonso del Arte, Mar 25 2020
Gamma(n + 1/11)/Gamma(1/11) = 1, 1/11, 12/121, 276/1331, 9384/14641, 422280/161051, 23647680/1771561, ... - _R. J. Mathar_, Sep 04 2016
[Round(Gamma(n +1/11)/Gamma(1/11)): n in [0..30]]; // G. C. Greubel, Jan 19 2018
f := proc(n) round(simplify(GAMMA(n+1/11)/GAMMA(1/11))); end: map(f, [$0..60]); # Edited by Robert Israel, Mar 25 2018
Table[Round[Gamma[n + 1/11]/Gamma[1/11]], {n, 0,50}] (* G. C. Greubel, Jan 19 2018 *)
for(n=0,30, print1(round(gamma(n+1/11)/gamma(1/11)), ", ")) \\ G. C. Greubel, Jan 19 2018
Digits:=100: evalf(1/101); # Wesley Ivan Hurt, Jun 04 2016
Flatten[RealDigits[1/101, 10, 100, -1]] (* Wesley Ivan Hurt, Jun 04 2016 *)
a(n) = {r=lift(Mod(10,101)^(n-1));floor(10*r/101)} \\ Michael B. Porter, Oct 01 2009
Join[{0,0},RealDigits[1/913,10,120][[1]]] (* Harvey P. Dale, Jan 16 2012 *)
Comments