cp's OEIS Frontend

A071703 Number of ways to represent the n-th prime as arithmetic mean of three odd primes.

%I A071703 #10 May 24 2015 10:42:12
%S A071703 0,1,2,4,8,10,14,16,20,28,32,36,47,45,48,58,68,74,81,95,88,101,108,
%T A071703 119,134,146,143,150,161,161,195,208,215,222,244,257,259,269,283,293,
%U A071703 319,332,354,346,359,365,417,426,442,455,454,500,497,526
%N A071703 Number of ways to represent the n-th prime as arithmetic mean of three odd primes.
%e A071703 a(4)=4 as A000040(4)=7 and there are no more representations than 7 = (3+5+13)/3 = (3+7+11)/3 = (5+5+11)/3 = (7+7+7)/3.
%o A071703 (Haskell)
%o A071703 a071703 = z a065091_list 0 . (* 3) . a000040 where
%o A071703    z _ 3 m = fromEnum (m == 0)
%o A071703    z ps'@(p:ps) i m = if m < p then 0 else z ps' (i+1) (m - p) + z ps i m
%o A071703 -- _Reinhard Zumkeller_, May 24 2015
%Y A071703 Cf. A071681, A071704.
%Y A071703 Cf. A010051, A000040, A065091.
%K A071703 nonn
%O A071703 1,3
%A A071703 _Reinhard Zumkeller_, Jun 03 2002
%E A071703 Definition, initial term and example corrected. Thanks to _Zak Seidov_, who found the mistake. - _Reinhard Zumkeller_, May 24 2015