|
%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
|
