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

3, 6, 6, 6, 42, 21, 30, 30, 30, 30, 38, 399, 462, 66, 6, 30, 930, 1054, 102, 222, 370, 210, 210, 105, 357, 1326, 78, 330, 3135, 114, 66, 1518, 4830, 210, 570, 3002, 6478, 1722, 1218, 870, 2730, 546, 582, 3201, 330, 530, 742, 798, 13110, 4485, 390, 330, 462, 1806

Offset: 1

Author

Reinhard Zumkeller, Dec 22 2002

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007947, A079079, A079095.

Programs

Haskell

a079093 = a007947 . a079079  -- Reinhard Zumkeller, Oct 09 2012

Mathematica

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

PARI

a(n) = factorback(factor((prime(n)+1)*(prime(n+1)+1)/4)[,1]); \\ Michel Marcus, Feb 14 2018

Formula

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