another sequence on twin primes The maximal prime factor of average of twin prime pair:
n = 100000; averageList = Select[Prime[Range[n]], PrimeQ[# + 2] &] + 1; mpfList = FactorInteger[#][[-1, 1]] & /@ averageList; ListPlot[%]
Why does this diagram look like a series of trajectories?


With[{n = 10^5}, ListPlot[Composition[First, Last, FactorInteger] /@ (1 + Select[Prime[Range[n]], PrimeQ[# + 2] &])]];– J. M. Dec 11 '10 at 9:59