|
%I #13 Jul 14 2017 03:00:12
%S 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 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 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 Composite numbers in continued fraction expansion of Pi (A001203).
%H G. C. Greubel, <a href="/A185809/b185809.txt">Table of n, a(n) for n = 1..5000</a>
%p ts_composite := proc(n)
%p `if`(isprime(n) or n=1, true, false);
%p end proc:
%p Digits := 1000: p1 := convert(Pi,confrac,500): remove(ts_composite, p1);
%t Select[ContinuedFraction[\[Pi],500],#!=1&&!PrimeQ[#]&] (* _Harvey P. Dale_, May 02 2011 *)
%Y Cf. A185591.
%K nonn
%O 1,1
%A _Jani Melik_, Feb 04 2011
|
