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 A079093 #18 Apr 07 2025 09:51:25 %S A079093 3,6,6,6,42,21,30,30,30,30,38,399,462,66,6,30,930,1054,102,222,370, %T A079093 210,210,105,357,1326,78,330,3135,114,66,1518,4830,210,570,3002,6478, %U A079093 1722,1218,870,2730,546,582,3201,330,530,742,798,13110,4485,390,330,462,1806 %N A079093 Squarefree kernel of (prime(n)+1)*(prime(n+1)+1)/4. %H A079093 Reinhard Zumkeller, <a href="/A079093/b079093.txt">Table of n, a(n) for n = 1..10000</a> %F A079093 a(n) = A007947(A079079(n)). %t A079093 Times@@Transpose[FactorInteger[#]][[1]]&/@(Times@@@Partition[ Prime[ Range[ 60]]+1,2,1]/4) (* _Harvey P. Dale_, Jan 06 2013 *) %o A079093 (Haskell) %o A079093 a079093 = a007947 . a079079 -- _Reinhard Zumkeller_, Oct 09 2012 %o A079093 (PARI) a(n) = factorback(factor((prime(n)+1)*(prime(n+1)+1)/4)[,1]); \\ _Michel Marcus_, Feb 14 2018 %Y A079093 Cf. A007947, A079079, A079095. %K A079093 nonn %O A079093 1,1 %A A079093 _Reinhard Zumkeller_, Dec 22 2002