0,3
P:=proc(n) local i, t1, t2; for i from 0 by 1 to n do t1:=i!; t2:=0; while t1 <> 0 do t2:= t2+(t1 mod 10); t1 := floor(t1/10); od; print(t2); od; end: P(100); - Paolo P. Lava (ppl(AT)spl.at), Jun 30 2006
Cf. A000142.
Sequence in context: A105815 A136696 A086358 this_sequence A071678 A141329 A110388
Adjacent sequences: A004149 A004150 A004151 this_sequence A004153 A004154 A004155
nonn,base
njas
Search completed in 0.002 seconds