login
A185809
Composite numbers in continued fraction expansion of Pi (A001203).
2
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,1
LINKS
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 *)
CROSSREFS
Cf. A185591.
Sequence in context: A125055 A160397 A303653 * A231792 A201029 A201341
KEYWORD
nonn
AUTHOR
Jani Melik, Feb 04 2011
STATUS
approved