This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A122037 #8 Oct 11 2019 14:08:43
%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,
%U A122037 11,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.
%H A122037 Harvey P. Dale, <a href="/A122037/b122037.txt">Table of n, a(n) for n = 1..1000</a>
%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] (* _Ray Chandler_, Sep 25 2006 *)
%t A122037 FactorInteger[#][[-1,1]]&/@Select[Mean/@Partition[Prime[Range[ 200]], 4,1], IntegerQ] (* _Harvey P. Dale_, May 21 2014 *)
%Y A122037 Cf. A006530, A102655.
%K A122037 nonn
%O A122037 1,1
%A A122037 _Giovanni Teofilatto_, Sep 14 2006
%E A122037 Extended by _Ray Chandler_, Sep 25 2006