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?