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 A178668 #11 Mar 30 2012 18:52:54 %S A178668 1,1,1,1,5,7,5,1,17,1,23,5,5,1,11,19,5,5,47,13,29,7,1,11,29,19,5,103, %T A178668 107,11,5,137,23,13,7,17,43,7,59,13,1,41,71,43,31,11,17,11,19,31,67,5, %U A178668 139,283,41,149,13,313,23,13,37,13,347,29,11,71,17,373,7,11,13,397,17,1,443,7,113,13,31,467,11,5,13,11,271,181,11,37,7,281,113,577,17,7,59,593,199,17,157,13 %N A178668 Maximal prime divisor of the average of the twin prime pairs, different from 2 and 3. In case of maximal prime divisor is 2 or 3, then a(n)=1. %C A178668 78 from the first 100 terms are first or second members of twin pairs and only 12 are not. In a natural supposition that for large prime terms the latter should be in the majority, there are reasons to assume that the number N for which it occurs for the first time is very large. %C A178668 The average of a twin-prime pair is the same as 1 + the lower twin prime, whose largest prime factor is tabulated in A060210. %t A178668 s = Plus @@@ Select[ Partition[ Prime@ Range@ 350, 2, 1], #[[1]] + 2 == #[[2]] &]; f[n_] := Max[First /@ FactorInteger@ n] /. {2 -> 1, 3 -> 1}, f /@ s %Y A178668 Cf. A178456, A178527, A001359 %K A178668 nonn %O A178668 1,5 %A A178668 _Vladimir Shevelev_, Dec 25 2010