login
Squarefree kernel of (prime(n)+1)*(prime(n+1)+1)/4.
4

%I #14 Feb 14 2018 12:40:12

%S 3,6,6,6,42,21,30,30,30,30,38,399,462,66,6,30,930,1054,102,222,370,

%T 210,210,105,357,1326,78,330,3135,114,66,1518,4830,210,570,3002,6478,

%U 1722,1218,870,2730,546,582,3201,330,530,742,798,13110,4485,390,330,462,1806

%N Squarefree kernel of (prime(n)+1)*(prime(n+1)+1)/4.

%H Reinhard Zumkeller, <a href="/A079093/b079093.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A007947(A079079(n)).

%t Times@@Transpose[FactorInteger[#]][[1]]&/@(Times@@@Partition[ Prime[ Range[ 60]]+1,2,1]/4) (* _Harvey P. Dale_, Jan 06 2013 *)

%o (Haskell)

%o a079093 = a007947 . a079079 -- _Reinhard Zumkeller_, Oct 09 2012

%o (PARI) a(n) = factorback(factor((prime(n)+1)*(prime(n+1)+1)/4)[,1]); \\ _Michel Marcus_, Feb 14 2018

%Y Cf. A079095.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Dec 22 2002