OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 22 2002
STATUS
approved