OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
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
KEYWORD
nonn
AUTHOR
Jani Melik, Feb 04 2011
STATUS
approved