OFFSET
1,6
LINKS
FORMULA
EXAMPLE
MATHEMATICA
a[n_] := FactorInteger[Abs[Numerator[BernoulliB[2*n] / (2*n)]]][[1, 1]]; Table[a[n], {n, 1, 36}] (* Indranil Ghosh, Mar 12 2017 *)
PROG
(PARI) a(n) = my(num = abs(numerator(bernfrac(2*n)/(2*n)))); if (num==1, 1, factor(num)[1, 1]); \\ Michel Marcus, Jan 21 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jan 20 2017
EXTENSIONS
More terms from Michel Marcus, Jan 21 2017
STATUS
approved