A185809 Composite numbers in continued fraction expansion of Pi (A001203).
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, 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, 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
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..5000
Crossrefs
Cf. A185591.
Programs
-
Maple
ts_composite := proc(n) `if`(isprime(n) or n=1, true, false); end proc: Digits := 1000: p1 := convert(Pi,confrac,500): remove(ts_composite, p1);
-
Mathematica
Select[ContinuedFraction[\[Pi],500],#!=1&&!PrimeQ[#]&] (* Harvey P. Dale, May 02 2011 *)