%I #14 Feb 09 2020 08:39:44
%S 1,1,1,1,1,5,691,7,3617,43867,617,593,2294797,657931,362903,
%T 1001259881,305065927,151628697551,26315271553053477373,
%U 154210205991661,1897170067619,1520097643918070802691,1798482437,67568238839737,153289748932447906241,47464429777438199,4534045619429,1120412849144121779,19088082706840550550313,37349583369104129,109317926249509865753025015237911,28765594733083851481,87057315354522179184989699791727,159562251828620181390358590156239282938769,5525473366510930028227481
%N Largest prime factor of numerator of Bernoulli(2n) (or 1 if the numerator is 1).
%H Amiram Eldar, <a href="/A090947/b090947.txt">Table of n, a(n) for n = 0..103</a>
%F a(n) = A006530(abs(A000367(n))). - _Amiram Eldar_, Feb 09 2020
%t PrimeFactors[ n_] := Flatten[ Table[ #[[1]], {1} ] & /@ FactorInteger[ n ]]; A090947[n_] := PrimeFactors[ Numerator[ BernoulliB[2n]]][[ -1]]; Table[ A090947[n], {n, 5, 24}] (* _Robert G. Wilson v_, Feb 28 2004 *)
%Y Cf. A000367, A006530, A079294.
%K nonn
%O 0,6
%A _N. J. A. Sloane_, Feb 28 2004
%E More terms from _Robert G. Wilson v_ and _Hans Havermann_, Feb 28 2004