f[x_] := Series[Sin[x], {x, 1, 3}]

f[t]

(*Determinação de números perfeitos*)

Divisors[28]

(* Exemplo :  
        a função PrimeQ diz - 
          nos se um número é ou não primo*)

PrimeQ[10]

PrimeQ[7]

OddQ[3]

OddQ[2]

Ndivisores[n_] := Length[Divisors[n]] - 1

Ndivisores[5]

Sdivisores[
        n_] := (∑_(i = 1)^(Ndivisores[n]))Divisors[
            n][[i]]

Sdivisores[7]

Sdivisores[6]

(* 
      Terceiro passo :  
          verificar se n é um número perfeito*)

NumeroperfeitoQ[n_] := Sdivisores[n] == n

NumeroPerfeitoQ[12]

NumeroperfeitoQ[12]

NumeroperfeitoQ[6]

Perfeitos[Lista_] := 
      Module[{Listaperfeitos},  Listaperfeitos = {}; 
        Do[If[NumeroperfeitoQ[Lista[[i]]], 
            AppendTo[Listaperfeitos, Lista[[i]]]], {i, Length[Lista]}]; 
        Listaperfeitos]

Perfeitos[{3, 6, 12, 28}]

Timing[Perfeitos[Table[i, {i, 10000}]]]

Perfeitos2[Lista_] := Select[Lista, NumeroperfeitoQ]

Perfeitos2[{3, 6, 12, 28}]

Timing[Perfeitos2[Range[10000]]]