A216826 Largest prime factor of the n-th primary pseudoperfect number A054377(n).
2, 3, 7, 43, 31, 47059, 3109, 1729101023519
Offset: 1
Examples
42 = 2*3*7 is the third primary pseudoperfect number, so a(3) = 7.
Programs
-
Mathematica
A054377 = Cases[Import["https://oeis.org/A054377/b054377.txt", "Table"], {, }][[All, 2]]; Max /@ FactorInteger[A054377] (* Robert Price, Mar 14 2020 *)
Comments