**TI92P*mainFunction file 06/12/05, 23:43Rlists2cä¥ZŠ(n) Func Local i,l {}l For i,1,n If isPrime(i)=true Then If iss2c(i)=true augment(l,{i})l EndIf EndFor Return l EndFuncfäå܃+