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 A185809 #13 Jul 14 2017 03:00:12 %S A185809 15,292,14,84,15,4,6,6,99,6,6,8,12,8,6,4,4,16,161,45,22,4,24,10,4,8, %T A185809 26,4,8,42,4,9,57,18,9,18,30,8,15,4,12,28,10,20,4,6,4,120,15,16,21,9, %U A185809 6,4,14,9,4,10,12,4,4,48,16,4,4,20,4,436,8,6,4,4,6,9,15,24,4,4,4,6,4,58,15,4,8,4,9,4,15,24,4,10,12,21,34,4,15,4,44,4,20776,94,55,32,14,50,16,4,6,28,4,4 %N A185809 Composite numbers in continued fraction expansion of Pi (A001203). %H A185809 G. C. Greubel, <a href="/A185809/b185809.txt">Table of n, a(n) for n = 1..5000</a> %p A185809 ts_composite := proc(n) %p A185809 `if`(isprime(n) or n=1, true, false); %p A185809 end proc: %p A185809 Digits := 1000: p1 := convert(Pi,confrac,500): remove(ts_composite, p1); %t A185809 Select[ContinuedFraction[\[Pi],500],#!=1&&!PrimeQ[#]&] (* _Harvey P. Dale_, May 02 2011 *) %Y A185809 Cf. A185591. %K A185809 nonn %O A185809 1,1 %A A185809 _Jani Melik_, Feb 04 2011