|
Search: id:A090947
|
|
|
| A090947 |
|
Largest prime factor of numerator of Bernoulli(2n) (or 1 if the numerator is 1). |
|
+0
1
|
|
| 1, 1, 1, 1, 1, 5, 691, 7, 3617, 43867, 617, 593, 2294797, 657931, 362903, 1001259881, 305065927, 151628697551, 26315271553053477373, 154210205991661, 1897170067619, 1520097643918070802691, 1798482437, 67568238839737, 153289748932447906241, 47464429777438199, 4534045619429, 1120412849144121779, 19088082706840550550313, 37349583369104129, 109317926249509865753025015237911, 28765594733083851481, 87057315354522179184989699791727, 159562251828620181390358590156239282938769, 5525473366510930028227481
(list; graph; listen)
|
|
|
OFFSET
|
0,6
|
|
|
MATHEMATICA
|
PrimeFactors[ n_] := Flatten[ Table[ #[[1]], {1} ] & /@ FactorInteger[ n ]]; A090947[n_] := PrimeFactors[ Numerator[ BernoulliB[2n]]][[ -1]]; Table[ A090947[n], {n, 5, 24}] (from Robert G. Wilson v Feb 28 2004)
|
|
CROSSREFS
|
Cf. A000367, A079294.
Sequence in context: A142535 A117709 A133750 this_sequence A000367 A092133 A071772
Adjacent sequences: A090944 A090945 A090946 this_sequence A090948 A090949 A090950
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Feb 28 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Hans Havermann (pxp(AT)rogers.com), Feb 28 2004
|
|
|
Search completed in 0.002 seconds
|
