%I A122037
%S A122037 3,3,5,3,11,5,19,7,23,11,5,17,3,29,17,7,3,19,5,127,139,3,149,31,11,7,
%T A122037 181,31,13,5,43,19,29,241,19,23,13,53,5,139,97,17,13,53,37,31,11,17,11,
%U A122037 127,43,19,7,71,431,7,149,11,79,37,163,11,127,257,41,271,23,43,113,19,
               3
%N A122037 Largest prime factor of number equal to the arithmetic mean of four successive 
               primes.
%F A122037 a(n) = A006530(A102655(n)).
%t A122037 FactorInteger[ # ][[ -1, 1]] & /@ Select[Table[Sum[Prime[k], {k, n, n 
               + 3}]/4, {n, 120}], IntegerQ] (*Chandler*)
%Y A122037 Cf. A006530, A102655.
%Y A122037 Sequence in context: A048691 A071053 A094439 this_sequence A008316 A072820 
               A131950
%Y A122037 Adjacent sequences: A122034 A122035 A122036 this_sequence A122038 A122039 
               A122040
%K A122037 nonn
%O A122037 1,1
%A A122037 Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Sep 14 2006
%E A122037 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 25 2006