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 A078579 #9 Nov 03 2019 06:47:20 %S A078579 2,6,6,6,30,42,30,6,102,6,138,30,30,6,66,114,30,30,282,78,174,210,6, %T A078579 462,174,570,30,618,642,330,30,822,138,858,42,510,258,210,354,546,6, %U A078579 1230,426,1290,1302,330,714,66,1482,186,402,30,834,1698,1722,894,78 %N A078579 Squarefree kernel of the average of n-th twin prime pair. %H A078579 Amiram Eldar, <a href="/A078579/b078579.txt">Table of n, a(n) for n = 1..10000</a> %F A078579 a(n) = A007947(A014574(n)). %F A078579 a(A070195(n)) = A070195(n). %t A078579 midQ[n_] := PrimeQ[n-1] && PrimeQ[n+1]; f[n_] := Times @@ FactorInteger[n][[;;,1]]; f /@ Select[Range[2000], midQ] (* _Amiram Eldar_, Nov 03 2019 *) %Y A078579 Cf. A007947, A014574, A070195, A078580. %K A078579 nonn %O A078579 1,1 %A A078579 _Reinhard Zumkeller_, Nov 29 2002