|
%I #9 Sep 05 2019 03:23:11
%S 3,31,159,355,169,314159,392705,10166,7998,9787003,28954814,
%T 157079632681,68250087,4349287,67757089,1002742628275,1230791,
%U 1307585156,14846149,1296188,1024025943,452477425,1492388104
%N Sum of all prime factors of floor(Pi*10^n), Pi=3.14....
%C a(n) = A001414(A011545(n)).
%e n=6: floor(Pi*10^6)=3141592=2*2*2*392699: a(6)=2+2+2+392699=392705.
%t sapf[n_]:=Total[Flatten[Table[#[[1]],#[[2]]]&/@FactorInteger[n]]]; sapf/@ Floor[Pi 10^Range[0,30]] (* _Harvey P. Dale_, Nov 18 2018 *)
%Y Cf. A089286, A089285, A089283, A000796.
%K nonn
%O 0,1
%A _Reinhard Zumkeller_, Oct 30 2003
|
