login
A079093
Squarefree kernel of (prime(n)+1)*(prime(n+1)+1)/4.
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,1
LINKS
FORMULA
a(n) = A007947(A079079(n)).
MATHEMATICA
Times@@Transpose[FactorInteger[#]][[1]]&/@(Times@@@Partition[ Prime[ Range[ 60]]+1, 2, 1]/4) (* Harvey P. Dale, Jan 06 2013 *)
PROG
(Haskell)
a079093 = a007947 . a079079 -- Reinhard Zumkeller, Oct 09 2012
(PARI) a(n) = factorback(factor((prime(n)+1)*(prime(n+1)+1)/4)[, 1]); \\ Michel Marcus, Feb 14 2018
CROSSREFS
Cf. A079095.
Sequence in context: A291801 A227501 A294981 * A153035 A296216 A072910
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 22 2002
STATUS
approved