login
Sum of even digits (0,2,4,6,8) of n-th prime.
2

%I #9 Jul 30 2015 22:33:03

%S 2,0,0,0,0,0,0,0,2,2,0,0,4,4,4,0,0,6,6,0,0,0,8,8,0,0,0,0,0,0,2,0,0,0,

%T 4,0,0,6,6,0,0,8,0,0,0,0,2,4,4,4,2,2,6,2,2,8,8,2,2,10,10,2,0,0,0,0,0,

%U 0,4,4,0,0,6,0,0,8,8,0,4,4,4,6,4,4,4,8,8,4,10,10,10,4,12,4,4,0,0,2,2,4,4,0

%N Sum of even digits (0,2,4,6,8) of n-th prime.

%F A104261(n) = A007605(n) - A104260(n).

%t sodev={};Do[id=IntegerDigits[Prime[i]];lid=Length[id];sod=Sum[If[EvenQ[id[[k]]], id[[k]], 0], {k, lid}];sodev={sodev, sod}, {i, 200}];sodev//Flatten

%t f[n_] := Plus @@ Select[ IntegerDigits[ Prime[n]], EvenQ[ # ] && # > 1 &]; Table[ f[n], {n, 102}] (* _Robert G. Wilson v_, Nov 03 2005 *)

%Y Sum of odd digits (1, 3, 5, 7, 9) of n-th prime: A104260, sum of prime digits (2, 3, 5, 7) of n-th prime: A104250, sum of composite (nonprime) digits (1, 4, 6, 8, 9) of n-th prime: A104251, sum of digits of primes: A007605, primes: A000040.

%K nonn,base

%O 1,1

%A _Zak Seidov_, Feb 26 2005