A077066 - OEIS

%I #9 Sep 04 2013 01:54:26

%S 3,2,6,2,6,14,6,10,6,30,2,38,42,22,6,6,30,62,34,6,74,10,42,30,14,102,

%T 26,6,110,114,2,66,138,70,30,38,158,82,42,174,30,182,6,194,66,10,106,

%U 14,114,230,78,30,22,42,258,66,30,34,278,282,142,42,154,78,314,318,166

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

%C a(A077067(n)) = A077067(n).

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

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

%e a(25) = rad(prime(25)+1) = rad(97+1) = rad(2*7^2) = 14.

%o (PARI) a(n)=my(f=factor(prime(n)+1)[,1]); prod(i=1,#f,f[i]) \\ _Charles R Greathouse IV_, Aug 21 2013

%o (Haskell)

%o a077066 = a007947 . a008864  -- _Reinhard Zumkeller_, Sep 04 2013

%Y Cf. A077063.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Oct 23 2002